©TIMIX 



TPMIX lattoS 



Published monthly by Texas Instruments Minicomputer Information Exchange 



April1983 



Vol. 10, Na 4 



North Texas RIX Holds Best Meeting Yet 



By Melinda Staud 

Business Computer Systems 

Corp. 

DALLAS, TX - The North Texas Re- 
gional Information Exchange (RIX) 
held their most successful meeting 
to date on Feb. 16 at Texas Instru- 
ments in Dallas. 




The Feb. 16 meeting of the North Texas 
RIX attracted the most number of atten- 
dees yet. 



After a brief business meeting, 
Bob Grimmer, Tl (Austin) Business 
Systems Products manager, gave a 
presentation. He began his presenta- 
tion by reassuring everyone that Tl 
990 hardware has a very bright future. 
Bob outlined the current Tl marketing 
organization and the function of each 
group. He reviewed the Business 
System 200, 300, 600 and 800 
systems. Bob pointed out that the 
CPUs have been redesigned to com- 
ply with the FCC EMI emission regu- 
lations. He presented the 1983 devel- 
opment goals for hardware, commu- 
nications, and software in its transi- 
tion from the DS990 to the Business 
Systems products. Bob supported his 
presentation with a new catalog of 
the combined products. 

Carol Wiley, Tl (Austin) DX10 
Release manager, followed Bob with 
a presentation that explained how to 
get systems to function better and 
support more devices. Carol de- 
scribed sysgen parameters, buffer 
management, I/O buffers, the ITC 
area, powerfailure, auto media 




Speakers at the North Texas RIX (L to R): Bob Grimmer, Carol Wiley, and Rick Spurgeon. 



recovery, SCI, front panel displays, 
and disk organization. She empha- 
sized that file size was very important 
for disk efficiency. Carol also re- 
viewed hardware considerations 
such as disk and CPU speed, amount 
of memory, line printer speed, and 
table governors. She concluded her 
talk by discussing the differences 
between DX10 releases 3.4 and 3.5, 
and plans for the 3.6 release. 
Rick Spurgeon of Computers for 



Business, Inc., involved everyone in 
his presentation by asking what type 
of peripherals each person in the au- 
dience used with their Tl 990. He then 
described peripheral devices for the 
Tl 990 which included printers, 
memory boards, modems, credit card 
embossers, plotters, and software 
emulation boards. Rick suggested 
that advantages and disadvantages 
be weighed before a decision is 
made to use non-TI devices. □ 



New Staff Member 




Ellen Ann Gober began working in 
the TI-MIX office at the end of 
January. Her job responsibilities 
include processing advertising 
and MiX-TlPs for publication in the 
TI-MIX News. Ellen Ann also col- 
lected the written texts of sym- 
posium presentations and pro- 
duced proceedings for each sym- 
posium session. 

Originally from Monroe, LA, 
Ellen Ann taught business educa- 
tion at a college in Memphis, TN 
before moving to Austin. Q 
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Florida mx Covers Tl 
Professional Computer 
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By Patti Pratt 
TI-MIX Staff 

HOLLYWOOD, FL - "The Texas In- 
struments Professional Computer 
has been judged superior to anything 
In its class In the marketplace," said 
Thomas Reich, Tl (Ft. Lauderdale) Re- 
seller Channel Sales manager. Tom's 
presentation on the Tl Professional 
Computer was followed by an actual 
demonstration given by Charlie Flaitz, 
Tl (Ft. Lauderdale) Systems analyst. 
More than 60 people attended the 
reorganizational meeting of the 
Florida Regional Information Ex- 
change (RIX) held on March 9. 

Tom also described the features on 
the Tl Business System Series. He 
commented on how this product line 
can reduce costs and increase per- 
formance. The meeting continued 
with a multimedia overview describ- 
ing Texas Instrument's growth and 
how Tl computers are being used in 
some of Tl's larger applications. 

Paul Spiewak of Unilaw Systems, 
Inc., Miami, FL, gave a preview of the 
presentation he will be giving at the 




New Orleans TI-MIX symposium. He 
said, "Optimization of resources, 
minimization of costs and risks, and 
maximization of profits and results 
are the three major advantages of ver- 
tical marketing." Paul described fac- 
tors in analyzing, locating, and devel- 
oping unique advantages in the mar- 
ketplace for the vertical software 
marketer. 

Also attending the meeting were 
Patti Pratt of the TI-MIX staff and 
Richard Max of Synkote Paint Co., RIX 
Support Committee chairman for the 
TI-MIX General Board. Patti showed 
slides of the TI-MIX organization and 
the upcoming symposium. Richard 
spoke about TI-MIX board activities 
and the RIX structure in general. 

Officers elected were: Paul Spie- 
wak of Unilaw Systems, Inc., as chair- 
man, Doug Mendoza of Computer 
Brokers as program director, and Joe 
Hanes of MIS, Inc. as communica- 
tions secretary. The officers plan to 
send a questionnaire to members in 
the Florida RIX area to determine the 
format and location of future 
meetings. □ 



Officers for the Florida 
RIX are (L to R): Doug 
Mendoza of Computer 
Brokers, program 
director; Paul Spiewak of 
Unilaw Systems, Inc., 
chairman; and Joe Hanes 
of MIS, Inc., 
communications 
secretary. 



linois Attendees Share Problems 
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By Jerry Heydemann 
The Computer Laboratory 

ROSEMOUNT, IL - The first 1983 
meeting forthe Illinois RIX (Regional 
Information Exchange) was held at 
Heuer's Restaurant on Feb. 17. The 
theme of the meeting was "share a 
problem." Members were asked to pre- 
sent a problem they face or had 
solved in their use of Tl computer 
systems. 
Three major problem areas were 



discussed: compatibility between 
various releases of the COBOL com- 
piler and DX10 operating system, 
methods of backup and recovery for 
small and large installations, and the 
degree of satisfaction of end users 
with the products and services of 
turnkey OEMs. End user and OEM 
members presented their views from 
both sides of the relationship. 

This meeting provided topics for 
future Illinois RIX meetings. D 
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Attendees Experience Hands-On 
Demo of Tl Professional Computer 



By Price Burlington 
San Joaquin Systems 

MENLO PARK, CA - The new Tl Pro- 
fessional Computer, code-named 
Pegasus while in development, was 
the topic of interest at the Feb. 8 
meeting of the Northern California 
regional meeting (RIX). John Perry, Tl 
(San Francisco) analyst, gave a slide 
presentation which outlined Tl's mar- 
keting plan for the Professional Com- 
puter and emphasized the system's 
key features. 

The Tl Professional Computer fea- 
tures include high-resolution color 
graphics, a low-profile keyboard, a 
broad base of operating systems and 
application software, and network 
communications. A basic system in- 
cludes a monochrome display, key- 
board, a system unit with 64K bytes 
of RAM, and an integral 320K byte 
floppy disk drive, along with many 



upgrade options available. Future 
enhancements to the Tl Professional 
Computer include voice manage- 
ment and natural language capa- 
bility. 

RIX members saw a demonstration 
of the T! Professional Computer and 
were able to get hands-on experience 
with the new style keyboard. The 
group's reaction was very favorable to 
the new Tl addition. Attendees felt 
that the new Tl Professional Com- 
puter would bring increased visibili- 
ty and public awareness to the cor- 
poration. 

The meeting was hosted by Jim 
Ellis at the U.S. Geological Survey 
Center in Menio Park. Also present to 
answer questions was Joe Keller, Tl 
(San Francisco) analyst. The next 
meeting of the Northern California 
RIX will be after the TI-MIX New 
Orleans symposium. □ 



Call for General Board 
Nominations 



If you are interested in TI-MIX activities 
and would like to serve on the TI-MIX 
General Board, now is the time to act. 
Board meetings are held in the spring, 
fall, and summer. At these meetings 
the board makes decisions regarding 
TI-MIX goals and objectives, and pro- 
vides direction to the TI-MIX staff. 
Board members also present the con- 
cerns of the TI-MIX membership to 
Texas Instruments management. The 
TI-MIX Nominating Committee is look- 
ing for interested and hardworking in- 
dividuals to serve as board members. 
To serve on the board you must 
meet the following requirements: 
• Potential board nominees must 
submit biographies, portraits, state- 
ments of intent for running for the 
board, and nominating petitions no 
later than May 31, 1983 (60 days 
before the ballots are mailed). Can- 
didates nominated unanimously by 
the Nominating Committee will 
have petition requirements waived. 



Nominating petitions must contain 
signatures of at least 25 TI-MIX 
members of record in good stand- 
ing, not more than two of which can 
be from the same company. These 
petitions must contain a statement 
from the nominee whereby he or she 
agrees to serve a two-year term of 
office if elected. 

• To be eligible for nomination, the 
nominee must have attended a 
TI-MIX symposium within the past 
three years, and have been a mem- 
ber of TI-MIX for at least one year 
prior to submitting his or her nomi- 
nating petition. Candidates must be 
active members of TI-MIX. Active 
participation involves serving on a 
TI-MIX committee, serving as a RIX 
or SIIX officer, contributing to the 
TI-MIX library or TI-MIX News, and 
serving as a symposium session 
chairman or speaker. 

• Two or more nominees for the 
General Board may not be em- 



Software Test 
Plan Standards 
Available 

Management and Computer Ser- 
vices, Inc. (MACS) has released a 
portfolio of test plan standards that 
can be adapted by data processing 
departments faced with the need to 
improve software staff productivity 
and/or implement quality assurance 
programs. The standards, reflecting 
a range of operating environments, 
address the structuring of a test en- 
vironment and the development of 
procedures to control the substantial 
portion of the life cycle effort devoted 
to testing. 

The standards were developed in 
conjunction with hundreds of clients 
over the last five years. The company 
says that firms implementing the 
techniques are experiencing a 20 per- 
cent reduction in life cycle develop- 
ments and up to an 80 percent reduc- 
tion in ongoing maintenance costs. 
The use of the standards does not re- 
quire any of MACS's software prod- 
ucts to gain improvements. 

The package may be obtained, at 
no charge, by calling MACS, (215) 
648-0730 or writing to Management 
and Computer Services, Inc., Great 
Valley Corporate Center, Valley Forge, 
PA 19782. □ 



ployed by the same company. In the 
event that two or more petitions are 
received from employees of the 
same company, the earliest re- 
ceived petition shall be the one con- 
sidered for acceptance. 
• All nominees are subject to the 
approval of the Nominating 
Committee. 

The current board consists of six 
voting members, one nonvoting mem- 
ber, and the chairman. The one-year 
terms of three current board members 
will expire this year. The chairman, as 
in the past, will be elected by the ex- 
isting board during the spring board 
meeting. The TI-MIX Bylaws limit 
board members to five consecutive 
years of service. 

More details about the election can 
be obtained by contacting any board 
member or the TI-MIX office at TI-MIX, 
M/S 2200, P.O. Box 2909, Austin, Texas 
78769 or phone (512) 250-7151. Q 
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Model 20 Meets the Challenge 
of Non-Stop Student Use 



By Ruth van Wagner 
Pacific Career College 

CAMARILLO, CA - Pacific College in 
Camarillo, CA was preparing to insti- 
tute a computer programming course 
of study in the spring of 1981. One of 
tfie major problems encountered was 
choosing a computer system that 
would meet the four selection criteria. 

1. The equipment had to be from an 
easily recognizable major computer 
manufacturer so that prospective 
employers would have confidence in 
the graduate's acquired skills. 

2. The system had to be flexible to 
allow for expansion as the number 
of students increased. 

3. Good instructional software had to 
be available. 

4. Most importantly, the equipment 
had to be reliable. 

The college's goal was to have 100 
students enrolled in the program within 
the first year of operation. This meant 
that the equipment would have an ag- 
gregate usage of over 1,000 hours per 
week. The instructional activities, 
therefore, could not wait for repairs to 
be made. 

After considerable study, the ad- 
ministration of Pacific Career College 
decided that the system which met all 
the criteria was the Texas Instruments 



DS990. In May 1981, a Model 20 with 
576K bytes memory and 16 911s was in- 
stalled and went right to work. The col- 
lege's faculty and staff have not been 
disappointed. 

The curriculum that was followed for 
those first students was based on 
guidelines set forth in the National 
Computer Careers program. In both the 
day and evening programs of 42 and 48 
weeks respectively, four languages are 
taught: BASIC, COBOL, FORTRAN, and 
Pascal. Additionally, courses in com- 
munications, mathematics, problem 
solving, system analysis and design, 
file organization, and accounting are 
taken by all students. 

Through attendance at seminars, 
meetings with employers and member- 
ship in data processing societies, the 
college staff has tried to remain cur- 
rent with industry trends. This has 
resulted in the addition of courses in 
program design and construction and 
in microcomputer programming to the 
curriculum. Also, an externship pro- 
gram is being implemented among 990 
users to give the students some prac- 
tical experience. It also allows prospec- 
tive employers first-hand experience 
with the capabilities of graduates 
before hiring. 

Pacific Career College has found 
the languages on the 990 system to 



follow the national standards well 
and be highly compatible with other 
equipment. Graduates are success- 
fully functioning not only in busi- 
nesses using Texas Instruments com- 
puters, but in those using other 
manufacturer's hardware as well. 
Satisfied employers return to the 
school's career placements when ad- 
ditional employees are needed. 

From its start as a legal arts col- 
lege. Pacific Career College now in- 
cludes several fields of study in ad- 
dition to legal arts and computer pro- 
gramming. These include computer 
accounting, legal and executive 
secretarial training, medical 
assistants and word processing. The 
computer department itself has 
grown to 135 students. 

As part of this growth the compu- 
ter usage has also grown. The system 
however, has proven to be able to 
meet the original four criteria. It is ef- 
ficient, able to expand and most of 
all, reliable. In the past 21 months, 
the Model 20 has been down for a 
total of only three days! 

Since the college is located in 
southern California, a favorite vaca- 
tion spot, the faculty and staff extend 
an invitation to all TI-MIX members to 
visit the facilities as part of a trip 
itinerary. Q 



For Your Information:! 



Tl Software Solutions Program 



AUSTIN, TX — Texas Instruments has 
implemented an application software 
program for today's marketplace. 
Designed to help resellers of Tl com- 
puter systems, the Software Solu- 
tions Program exists to provide an 
easy access to a wide range of appli- 
ation software products. The program 
consists of four parts designed to 
provide the level of support needed 
for various resellers. 

Application Distribution Center 
(ADC) 

The ADC provides application soft- 
ware developed and totally supported 
by third-party softv.-are manufac- 
turers. Each product considered for 
the ADC is evaluated against estab- 



lished criteria that include: function- 
ality, third-party vendor's ability to 
support the software, market de- 
mand, documentation, and reliabili- 
ty. Products selected are stocked by 
Tl, supported by the third-party ven- 
dor, and available to all Tl resellers. 

Third-Party Software Directory 

Many specialized third-party software 
packages are of interest to specific 
segments of the marketplace. As 
with the products in the ADC, these 
software products are evaluated by 
the Software Solutions Program staff 
against established criteria, but sup- 
ported by the third-party vendor. The 
Third-Party Software Directory identi- 



fies and describes these programs 
and provides Tl resellers with the 
means for contacting the vendor 
directly. 



Software Referral Service 

Anyone with software for resale on Tl 
computer systems may list those 
software products in the Software 
Referral Service Directory. The direc- 
tory is maintained as a resource to Tl 
OEMs and Authorized Dealers. Pros- 
pective purchasers of these applica- 
tion packages who contact Tl are 
referred to a number of vendors. As 
with the ADC and the Third-Party 
Directory, suitability, performance, 
and support of any software pack- 



April 1983 TI-MIX News 



Tl Software Solutions 
(continued) 

ages will be between the purchaser 
and the software manufacturer. 

For Information on the Texas In- 
struments Software Solutions Pro- 
gram contact your local Tl sales of- 
fice or write to Texas Instruments, 
Software Solutions Program, MIS 
2107, RO. Box 2909, Austin, TX 78769. 

D 



If you're reading this 
at the New Orleans 
symposium, welcome 
to TI-MIX 1983. 

If you're not, you are 
missing a great 
symposium. See an 
upcoming issue of 
the TI-MIX News for 
coverage of the 
symposium. 



Contribution Profile: COBOL 
Square Root Routines 



By Jim Fisher of I.C. System, Inc. 

TI-MIX Technical Contributions 

Committee Chairman 

The response to my request for a 
square root routine for COBOL (see 
page 14, January 1983 TI-MIX News) 
has been overwhelming and very 
much appreciated. In this issue, 
several of the MIX-TIPs deal with a 
variety of methods to calculate a 
square root. I even received a copy of 
a square root routine in BAL (IBM's 
assembly language) which has been 
converted to Tl assembler and is now 
in the TI-MIX library, part number 
90-038-010. (See Library Updates in 
this issue.) 

The assembly language version 
simulates the long-hand method of 
calculating a square root. This partic- 
ular method lends itself quite nicely 
to COBOL on Tl computers and exe- 
cutes at about the same speed as a 
typical COBOL divide. It will accept 



a numeric unsigned data item (PIC 
999 . . .) of any legal size and produce 
an unsigned numeric result. All of the 
COBOL move and truncation rules 
are followed properly and a test pro- 
gram is included to demonstrate its 
operation. The routine has been quite 
useful in an application where a stan- 
dard deviation and standard error of 
measurement had to be calculated 
(both of which need the square root 
operation). 

The response to the quest for a 
COBOL square root illustrates how 
effective TI-MIX can be. The organiza- 
tion was formed to serve as a vehi- 
cle for the exchange of information, 
and in this case, the exchange was 
not only timely, but extremely 
valuable. All members are encour- 
aged to use TI-MIX in this manner to 
help solve problems or to satisfy a 
particular need. Your chances are 
good that there is someone out there 
willing to help. D 



IVIIX" I Ir S (Programming Tips) 

MIX-TIPs are short technical articles with listings or diagrams describing a procedure or programming tip of interest to readers. The set of MIX-TIPs in 
this issue can be purchased on computer media for $30. Call the TI-MIX office for information. Submissions of MtX-TIPs should be sent (on media if 
possible) to the TI-MIX News office. All submissions are reviewed by a board of TI-MIX members and their comments are included when the MIX-TIP is 
published. If you would like to serve on the MIX-TIP Review Board, contact the TI-MIX office. 



■Handling SCI Input Errors 

By Keith T Clayton 

Information Management Technologies, Inc. 

Chicago, IL 

The simplest SCI procedures merely pass input 
parameters to a program. The program has various means 
of indicating a bad parameter. For example, a program 
might generate a message such as "0003 ILLEGAL PAR- 
AMETER." While users do not find this sort of error mes- 
sage helpful, it is usually not feasible to add better 
messages to an existing program. As a result, you end 
up trying to improve the SCI procedure so that it checks 
the input parameters for reasonableness. As long as there 
are only one or two parameters, this is fine. The SCI 
".PROMPT" primitive makes it easy to get additional 
parameters or correct wrong ones. As the number of par- 
ameters increases, however, a (formerly) simple SCI 
procedure expands to several pages. 



You can avoid most of this complexity by the use of a 
simple but little-known feature of SCI, recursion. Any SCI 
procedure may call itself provided there is some termi- 
nating condition. To handle an input error by using recur- 
sion, all you need to do is: display an error message, call 
the procedure you are in, and use the "EXIT" primitive 
to escape from the procedure. 

The user will see the error message, press return, and 
see a fresh set of prompts. The user can either answer 
the prompts again, or press the command key to stop. 

The following sample procedure demonstrates this 
approach: 



.PROC RECUR (RECURSIVE SCI PROCEDURE), 
VALUE = STRING (WRONG) 
MSG T="THE VALUE IS SV.ALUE" 
.IF "&VALUE",NE, "CORRECT" 
RECUR 
.EXIT 
.ENDIF 

MSG T="THE REAL WORK OF THE COMMAND WOULD BE DONE NOW" 
.EOP 
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This procedure will keep asking you for tlie "VALUE" until 
you type in tine word "CORRiCT", you hit the command 
key, or SCI's depth of nesting is exceeded (you get over 
20 tries). Error handling can be further improved by using 
synonyms to remember the values previously input, and 
by displaying the values of these synonyms as the initial 
values. For example: 



.PROC RECUR (RECURSIVE SCI PROCEDURE), 
VALUE = STRING ((?$VAL) 
.SYN $VAL=& VALUE 
MSG T="THE VALUE IS 3$VAL" 
.IF "& VALUE", NE, "CORRECT" 
RECUR 
.EXIT 
.ENDIF 

MSG T="THE REAL WORK OF THE COMMAND WOULD BE DONE NOW" 
.SYN $VAL="" 
.EOP 

Alternately, values can be selectively passed as prompt 
responses. You must be careful not to pass the bad 
values if you use this method, as this can create 
unexpected results. For example: 

.PROC RECUR (RECURSIVE SCI PROCEDURE), 

VALUE = STRING 

MSG T="THE VALUE IS i VALUE" 

.IF "S.VALUE",NE, "CORRECT" 

RECUR VALUE=& VALUE 

.EXIT 
.ENDIF 

MSG T="THE REAL WORK OF THE COMMAND WOULD BE DONE NOW" 
.EOP 

This appears to be the equivalent of the synonym method 
above, but actually will not let you correct a value (try it). 
Passing the prompt "VALUE" satisfies all the required 
prompts for the procedure, so no prompts are issued. 



Reloj Digital (Display Clock) 

By Sandor Lenin Bernard 

Litografia Zadik, S.A. 

Guatemala 

This BASIC program displays a digital clock on your CRT 
with solid numbers approximately 1 x 2 inches large, it 
also has an alarm. 



36 PRINT AT(12,T+2);RPT$(CHR?(25),2)&" "iRPT$(CHR$( 25) , 2) ; 

37 PRINT AT(13,T+1);RPT$(CHR$(25),2)&" "&RPT$(CHR$( 25) , 2) ; 

38 PRINT AT(14,T);RPt$(CHR$(25),2)&" "&RPT$(CHRS(25) ,2) ; 

39 PRINT AT(15,T);RPT$(CHR$(25),8); 

40 FOR 1=16 TO 18::PRINT AT ( I,T+5) ;RPT$(CHR$( 25) , 2) ; : :NEXT I 

41 RETURN 

43 FOR 1=10 TO 18::PRINT AT( I,T) ;RPT$(CHR$( 25) ,6) ; : :NEXT I 

44 FOR 1=12 TO 13::PRINT AT( I,T) ;RPTS(CHR$( 25) , 2)S" ";::NEXT I 

45 PRINT AT(16,T);" "&RPT$(CHR$( 25) , 2) ; 

46 RETURN 

48 PRINT AT(10,T+3);RPT$(CHR$(25),4); 

49 PRINT AT(1I,T+2);RPT$(CHR$(25),2); 

50 PRINT AT(12,T+1);RPT$(CHR$(25),2); 

51 PRINT AT(13,T);RPT$(CHR$(25),2); 

52 FOR 1=14 TO 17::PRINT AT( I,T) ;RPT$(CHR$( 25) ,7) ; : :NEXT I 

53 FOR 1=15 TO 16::?RINT AT(I,T+2);" ";::NEXT I 

54 PRINT AT(I8,T+1);RPT$(CHR$(25),5); 

55 RETURN 

57 FOR 1=10 TO n::PRINT AT( I,T) ;RPT$(CHR$( 25) , 7) ; : :NEXT I 

58 PRINT AT(12,T+4);RPT$(CHR$(25),3); 

59 PRINT AT(13,T+3);RPT$(CHR$(25),3); 

60 PRINT AT(14,T+2);RPT$(CHR$(25),3); 

61 FOR 1=15 TO 18::?RINT AT( I,T+1) ;RPT$(CHR$(25) , 3) ; : :NEXT I 

62 RETURN 

64 PRINT AT(10,T+1);RPT$(CHR$(25),4); 

65 PRINT AT(U,T);RPT$(CHR$(25),6); 

66 PRINT AT(12,T);RPT$(CHR$(25),2)&" "&RPT$(CHR$(25) ,2) ; 

67 PRINT AT(13,T);RPT$(CHR$(25),6); 

68 PRINT AT(14,T+1);RPT$(CHR$(25),4); 

69 FOR 1=15 TO 16::PRINT AT( I,T) ;RPT$(CHR$(25) ,2)&" "&RPT$(CHR$( 25) ,2) ; 

70 NEXT I 

71 PRINT AT(17,T);RPT$(CHR$(25),6); 

72 PRINT AT(18,T+1);RPT$(CHR$(25),4); 

73 RETURN 

75 PRINT AT(10,T+1);RPT$(CHR$(25),5); 

76 FOR 1=11 TO 13::PRINT AT( I,T) ;RPT$(CHR$(25) ,2)&" "iRPTS(CHR$(25) , 2) ; 

77 NEXT I 

78 PRINT AT(14,T+1);RPT$(CHR$(25),5); 

79 PRINT AT(15,T+4);RPT$(CHR$(25),3); 

80 PRINT AT(I6,T+3);RPT$(CHR$(25),3); 

81 PRINT AT(17,T);RPT$(CHR$(25),5); 

82 PRINT AT(18,T);RPT$(CHR$(25),4); 

83 RETURN 

85 PRINT AT(10,T+2);RPT$(CHR$(25),4); 

86 PRINT AT(11,T+1);RPT$(CHR$(25),6); 

87 FOR 1=12 TO 16::PRINT AT( 1,T) ;RPT$(CHR$(25) , 2)&" "&RPT$(CHR$(25) ,2) ; 

88 NEXT I 

89 PRINT AT(17,T+1);RPT$(CHR$(25),6); 

90 PRINT AT(18,T+2);RPT5(CHR$(25),4); 

91 V(W)=0 

92 RETURN 

93 V(1)=VAL(SEG$(TIME$,1,1))::V(2)=VAL(SEG$(TIME$,2,1)) 

94 V(4)=VAL(SEG$(TIME$,5,1))::V(5)=VAL(SEG?(TIME$,7,1)) 

95 V(3)=VAL(SEG$(TIME5,4,1))::V(6)=VAL(SEG$(TIME$,8,I)) 

96 PRINT AT( 24,1); TIME? 

97 IF V(4)=0 AND V(5)=0 AND V(6)=0 AND V(3)=0 THEN 98 ELSE 99 

98 FOR ZX=1 TO 30::PRINT AT( 1 , 1) ;CHR$(7) ; : :NEXT ZX 

99 FOR W=l TO 6 

100 IF V(W)<>C(W)THEN GOSUB 103 

101 NEXT W 

102 GOTO 93 

103 IF W=l THEN T=3 

104 IF W=2 THEN T=14 

105 IF W=3 THEN T=28 

106 IF W=4 THEN T=39 

107 IF W=5 THEN T-53 

108 IF W=6 THEN T=64 

109 FOR K=10 TO 18:!PRINT AT(K,T);" ";::NEXT K 

110 IF V(W)=0 THEN V(W)=10 

111 ON V(W) GOSUB 12,19,26,34,43,48,57,64,75,85 

112 C(W)=V(W) 

113 RETURN 



1 ! ****************************R£L0J DIGITAL**************************** 

2 ! Este programa fue creado por la mente genial de SANDOR LENIN BERNARD 

3 ! marca el inlcio de un genio de las computadoras . 

4 PRINT ERASE ALL 

5 DIM V(6)::DIM C(6) 

6 C(1)=-1::C(2)=-1::C(3)=-1::C(4)=-1::C(5)=-1::C(6)=-1 

8 FOR 1=12 TO 16::PRINT AT(I,23);"00 00";::NEXT I 

9 PRINT AT( 14,23);" "; 
10 GOTO 93 

12 PRINT AT(10,T+2);RPT$(CHR$(25),3); 

13 PRINT AT(11,T+1);RPT$(CHR$(25),4); 

14 PRINT AT(12,T);RPT$(CHR$(25),5); 

15 FOR 1=13 TO 16 ::PRINT AT( I,T+2) ,RPT$(CHR$(25) , 3) ; ; :NEXT I 

16 FOR I«17 TO 18 ::PRINT AT( I,T+1) ;RPT$(CHR$(25) ,5) ; : :NEXT I 

17 RETURN 

19 FOR 1=10 TO 11::PRINT AT(I,T) ;RPT$(CHR$(25) ,6) ; : :NEXT I 

20 FOR 1=12 TO 13::PRINT AT( I,T+5) ;CHR$(25) ; : :NEXT I 

21 PRINT AT(i4,T);RPT$(CHR$(25),6); 

22 FOR 1=15 TO 16::PRINT AT(I,X) ;CHR$(25) ; : :NEXT I 

23 FOR 1=17 TO 18::PRINT AT( I,T) :RPT$(CHR$(25) ,6) ; : :NEXT I 

24 RETURN 

26 PRINT AT(10,T);RPT$(CHR$(25),6); 

27 PRINT AT(11,T);RPT$(CHR$(25),7); 

28 FOR 1=12 TO 16::PRINT AT( I,T+6) ;EPT$(CHR$(25) ,2) ; : :NEXT I 

29 PRINT AT(14,T+4);RPT$(CHR$(25),3)&" "; 

30 PRINT AT(17,T);RPT$(CHR$(25),7); 

31 PRINT AT( 18.T);RPTS(CHRS(25),6): 

32 RETURN 

34 PRINT AT(10,T+4);RPT$(CHR$(25),3); 

35 PRINT AT(11,T+3);RPTS(CHR$(25),4); 



Reviewers' Comments: 

• For more on clocl(s see: TI-MIX library part number 
90-010-014 "Screen Clock;" "Clock Program In BASIC" 
page 9, May 1982 TI-MIX News; and "SCI Prompt Time 
Display" page 6, September 1981 TI-MIX News. 

I think there is a bug in the program which causes the 
numbers to be displayed incorrectly. It may be a typo- 
graphic error, but after a couple of updates the number 
2 is not displayed correctly. 



COBOL Square Root 

By Jay Ransom 

Sawyer College 

Ventura, CA 

In response to Jim Fisher's request for a COBOL Square 
Root (see page 14, January 1983 TI-MIX News), this will 



April 1983 TI-MIX News 



work. It gives 17-digit accuracy but it is very slow. 



IDENTIFICATION DIVISION. 
PROGRAM-ID. MATH-FUNCTIONS. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TI-990. 
OBJECT-COMPUTER. TI-990. 

DATA DIVISION. 
WORKING- STORAGE SECTION. 
1 X PIC 9(8)V9(9). 
1 Y PIC 9(8)V9(9). 
1 PRINT-SQRT. 

2 YY PIC 9(8). 9(9). 

2 FILLER PIC XXX VALUE SPACES. 

2 ■« PIC 9(8). 9(9). 

PROCEDURE DIVISION. 
CYCLE. 

ACCEPT Y PROMPT LINE 5 POSITION 30. 

IF Y = ZERO STOP RUN. 

PERFORM SQRT. 

HOVE Y TO YY. MOVE X TO XX. 

DISPLAY PRINT-SQRT LINE 10 POSITION 20 ERASE. 

GO TO CYCLE. 



SQRT. 



MOVE 1 TO X. 

IF X NOT < 10000 

IF X NOT < 100000000 

IF X NOT < 1000000000000 

IF X NOT < 10000000000000000 

IF X NOT > .0001 

IF X NOT > .00000001 

IF X NOT > .000000000001 

IF X NOT > .0000000000000001 

PERFORM REPEAT-SQRT 15 TIMES. 



MOVE 100 

MOVE 10000 

MOVE 1000000 

MOVE 100000000 

MOVE .01 

MOVE .0001 

MOVE .000001 

MOVE .00000001 



REPEAT-SQRT. 

COMPUTE X=X*(3*Y+X*X)/ (Y+3*X*X). 



COBOL Square Root Source 
Listing 

By Nigel R, Trewartha 
Triumph-Adler 
West Germany 

IDENTIFICATION DIVISION. 

********************************************************************* 

**** 

**** COBOL UTILITY ROOTER 

********************************************************************* 



LINE 15 POSITION 1 
LINE 15 POSITION 12 



************************************************************ 

***** THE SQUARE ROOT FORMULA IS BASED ON THE 

***** STANDARD NEWTON INTERATION METHOD. 

***** X(N+1) = (XJH-(N/XN))/2,00 

**** WHERE N=THE NUMBER TO BE ROOTED. 

**** XN= THE N'TH INTERATION. 

**** IF X(N) * X(N) = N -+ ,00000001 THEN 

**** INTERATION STOPS. 

************************************************************ 

MULTIPLY XN BY XN GIVING ROOTER. 

SUBTRACT INPUT-CONVERT FROM ROOTER GIVING DIV. 

IF DIV > 0,000001 GO TO INTERATION. 

MOVE XN TO DISPLAY-XN. 

DISPLAY "ROOT OF " 
INPUT-NUMBER 
" IS " 
DISPLAY-XN. 
REPEAT-LOOP. 

DISPLAY "AGAIN (Y/N) ? :" LINE 23 POSITION 1. 

ACCEPT AGAIN-L LINE 23 POSITION 19. 

IF AGAIN-L = "Y" GO TO MAIN-LOOP. 

IF AGAIN-L = "N" STOP RUN. 

GO TO REPEAT-LOOP. 



DX10 Release 
3.5 Assembly Listings 

By Robert W. Hirn 

National Health Delivery Systems, Inc. 

Chicago, IL 

To assembly language programmers who were dis- 
turbed when Tl eliminated the blank line between the 
title and the first line of code on each page, the follow- 
ing patch to SDSMAC 3.5.0 will add an extra linefeed 
after the page number. Note: This extra line will not be 
counted with your "page length" prompt in XMA; there- 
fore, you should decrease this number by one, or your 
code will be running off the bottom of the page. 



MODIFY PROGRAM IMAGE 

PROGRAM FILE: .S$SDS$ 
OUTPUT ACCESS NAME: 

MODULE TYPE: OV 
MODULE NAME OR ID: >20 

ADDRESS: >2540 
VERIFICATION DATA: >3O20 
DATA: >300A 
CHECKSUM: 
ilELOCATION OF DATA? : 



PROGRAM-ID. 


ROOT. 


AUTHOR. 


TREWARTHA. 


DATE-WRITTEN. 


7-28-82 


ENVIRON'MENT DIVISION. 




CONFIGURATION SECTION. 




SOURCE-COMPUTER. 


990. 


OBJECT-COMPUTER. 


990. 


SPECIAL-NAMES. 




DECIMAL-POINT IS COMMA. 




DATA DIVISION. 




**************** 




WORKING- STORAGE SECTION. 




**************** 




77 INPUT-CONVERT 


PIC 99999V9999 COMP-3. 


77 ROOTER 


PIC 9(10)V99999999 COMP-3 


77 XN 


PIC 9(10)V99999999 COMP-3 


77 DIV 


PIC 9(10)VS9999999 COMP-3 


SCREEN SECTION. 




77 INPUT- NUMBER 


PIC 99999,9999. 


77 DISPLAY-XN 


PIC 2(9)9,99999999. 


77 AGAIN-L 


PIC X. 



PROCEDURE DIVISION. 
MAIN SECTION. 
PROG-START. 

DISPLAY "INPUT NUMBER: " LINE 10 POSITION 1. 
MAIN-LOOP 

ACCEPT INPUT-NUMBER LINE 10 POSITION 15. 
MOVE INPUT-NUMBER TO INPUT-CONVERT. 
DIVIDE 2,00 INTO INPUT-CONVERT GIVING XN. 
********************************************************************* 
*** START OF ROOT, MODIFY ABOVE AS EITHER 

*** A PERFORM OR A LINKAGE SECTION. 

********************************************************************* 
INTERATION. 

DIVIDE XN INTO INPUT-CONVERT GIVING DIV. 
ADD DIV TO XN. 
DIVIDE 2,00 INTO XN. 



IVIAPK (SCI Procedure) 

By Nigel R. Trewartha 
Triumph-Adler 
West Germany 

MARK is a simple procedure combining MD and MKF in 
order to determine KIF file attributes. A printout can be 

..__.. ^.~X_^ U..4i 4.U... ...^miUn I. .ill nli>m<>r> nr^n/^'^r r\r\ i\r\r\ 

lc^uc^lcu uui iiic icouiio wwm aivvayo apyoai \j\\ nic 

screen. 

MARK (MAP KEY FILE), 

KEY PATHNAME = *ACNM, 

LISTING ACCESS NAME=*ACNM 

.SYN $MD$="@&KEY" 

.SYN OUT="@$LISTING" 

MD PATH=@@$MD$,LIST=.SYS3ME 

.DATA .SYS1@ME 

*** NOT A KIF FILE **** 

.EOD 

MKF P=@$KEY,LIST=.SYS1@ME 

•SYN $$CC=OOO00 

AF, 

INPUT=".SYSli?ME", 

0UTPUT=".SYS@ME" 

.IF @OUT,GE,"LP01" ! FOR LPOl AND LP02 

.IF @OUT,LT,"LP03" ! CHANGE LPOtH-l IF NEEDED 

PF =".SYS@ME",LIST="@OUT" 
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. END IF 

.ENDIF 

.SHOW .SYSSME 
DF P=".SYS1@ME" 
DF P=".SYS(?ME" 

.SYN SMDS = "" 



A * * * 



****** 



IN ALL CASES SHOW RESULTS 



Reviewers' Comments: 

• See "Listing Indexed File Statistics" on page 4, in the 
September 1980 TI-MIX News and "Update on LKA" on 
page 8, in the August 1981 TI-MIX News. 



Newton Raphson Square 
Root Computation 

By Howard Gerber 

Texas Instruments 

Cypress, TX 



THE FOLLOWING 2 PROCEDURES PERFORM THE ACTUAL * 
SQUARE ROOT COMPUTATION. * 

THESE ROUTINES TAKE "SOURCE-NUMBER", THE INPUT * 
VALUE, AND "LOWER-LIMIT", THE MAXIMUM ACCURACY * 
OF COMPUTATION, AND YIELD "ROOT", THE SQUARE * 
ROOT OF "SOURCE-NUMBER". * 



******* 



A******** 



ROOT-COMPUTATION. 

MOVE "F" TO COMPLETION-CODE. 

MOVE ZEROS TO X. 

MOVE SOURCE-NUMBER TO X. 

MULTIPLY X BY LOWER-LIMIT GIVING DELTA. 

IF DELTA < LOWER-LIMIT 

MOVE LOWER-LIMIT TO DELTA. 

DIVIDE X BY 2 GIVING ROOT. 

PERFORM ITERATION UNTIL DONE. 
ITERATION. 

MULTIPLY ROOT BY ROOT GIVING SQUARED. 

SUBTRACT SQUARED FROM X GIVING Y. 

IF Y < SUBTRACT Y FROM GIVING Y. 

IF Y < DELTA MOVE "T" TO COMPLETION-CODE 

ELSE COMPUTE ROOT = ( ROOT + X / ROOT ) / 2. 



******************** 



* * * * 



* END OF SQUARE ROOT COMPUTATION 

t********************* 

CLOSE-FILES. 

CLOSE SOURCE-NUMBERS, OBJECT-NUMBERS. 

STOP RUN. 
END PROGRAM. 



This progam computes square roots in COBOL using the 
Newton Raphson approximation method. It accepts an 
unsigned decimal number and produces an unsigned 
decimal number. The example program reads a 16 digit 
per line file with an assumed decimal point after the 
eighth digit. It computes the square roots of the numbers 
in "INFILE" and produces "OUTFILE" with the roots. 

The basic iterative computation for a square root is: 
root = (root -i- x/root)/2, where the "root" on the left side 
of the equation is the next approximation, and "X" is the 
source number. The value of "lower-limit" determines the 
accuracy and speed. The smaller the value of "lower- 
limit," the more accurate and the slower the computation. 



IDENTIFICATION DIVISION. 

PROGRAM-ID. NEWTON- RAPHSON-SQUARE-ROOT-COMPUTATION. 

AUTHOR. HOWARD GERBER. 

DATE-WRITTEN. 12 JAN 1983. 

**********************A***J 

* THIS PROGRAM IS AN EXAMPLE OF COMPUTING SQUARE * 
» ROOTS IN COBOL USING THE NEWTON-RAPHSON * 
" APPROXIMATION METHOD. ^ 

* THE INTERNAL COMPUTATIONS ARE INTENTIONALLY * 
>• 2 DECIMAL PLACES LARGER THAN THE EXTERNAL < 

* VALUES TO INCREASE ACCURACY. ' 

A***************AAA*AAAAAAJ 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TI990-12. 
OBJECT-COMPUTER. TI990-12. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT SOURCE-NUMBERS 

ASSIGN TO INPUT, "INFILE". 

SELECT OBJECT-NUMBERS 

ASSIGN TO OUTPUT, "OUTFILE". 
DATA DIVISION. 
FILE SECTION. 

FD SOURCE-NUMBERS LABEL RECORDS ARE OMITTED. 
01 SOURCE-NUMBER PIC 9( 8) V9( 8) . 
FD OBJECT-NUMBERS LABEL RECORDS ARE OMITTED. 
01 SQRT PIC 9(8)V9(8). 

WORKING- STORAGE SECTION. 



01 ROOT 

01 X 

01 Y 

01 SQUARED 
01 DELTA 
01 LOWER-LIMIT 
01 COMPLETION-CODE PIC X 
88 DONE 



PIC 9(9)V9(9) 
PIC 9(9)V9(9) 
PIC 9(9)V9(9) 
PIC 9(9)V9(9) 
PIC 9(9)V9(9) 
PIC 9(9)V9(9) 



VALUE ZEROS. 

VALUE -/.FROS. 
VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 
VALUE 0.000000002 



VALUE "T". 



PROCEDURE DIVISION. 
INITIALIZATION. 

OPEN INPUT SOURCE-NUMBERS, 
OUTPUT OBJECT-NUMBERS. 
PROCESS-LOOP. 

READ SOURCE-NUMBERS AT END GO TO CLOSE-FILES. 

WRITE SQRT FROM ROOT. 
GO TO PROCESS-LOOP. 



Show Week Day 

By Jimmy P lemons 

Diamond Rug & Carpet Mills, Inc. 

Eton, GA 

This program, callable from a COBOL program, will take 
a specified date and convert it into the weekday for that 
date. The date must be between 1980 and 1990. If an error 
should occur, an error code will be returned in the "return- 
error" field. An error code of "1" means that the date is 
out of range or invalid. 



IDENTIFICATION DIVISION. 
PROGRAM- ID. CONVRT. 
AUTHOR. Jimmy Plemons. 

* INSTALLATION. Diamond Rug and Carpet Mills, Inc. 

************************************** A******** A********** A* A* ************* A A** 

♦REMARKS. Converts any date between 1980-1990 into day of week error code: * 

* (1) Date out of range or invalid * 

************************** AAAA*A************A****************A A AAA************* 

♦WRITTEN. 01-18-83. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TI-990-12. 
OBJECT-COMPUTER. TI-990-12. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
01 D- TABLE 
01 RED- TABLE REDEFINES D- TABLE. 

03 DDAYS OCCURS 12 TIMES 
01 R- TABLE 

"000031059090120151181212243273304334." 
01 L- TABLE PICTURE X(36) VALUE 

"000031060091 12 U521822 13244274305335". 



PICTURE X(36) VALUE SPACES. 



PICTURE 999. 
PICTURE X(36) VALUE 



01 DAY- TABLE 

"71234567123456 
01 R-DAY REDEFINES DAY-TABLE. 

03 THE-DAY OCCURS 15 TIMES 
01 WEEK 
01 RED-WEEK REDEFINES WEEK. 

03 FILLER 

03 WEEKDAY 

03 FILLER 
01 SUB 
01 DAYS 
01 START-DAY 
01 WKDAY 
01 WORK-DATE. 

03 MM 

03 DD 

03 YY 
LINKAGE SECTION. 
01 PASSING-DATA. 

03 RETURN-DATE 

03 RETURN-DAY 

03 RETURN-ERROR 



PICTURE X(15) VALUE 



PICTURE X. 

PICTURE 9(3)V99 VALUE ZEROS. 

PICTURE XXX. 

PICTURE 9. 

PICTURE X. 

PICTURE 99 VALUE ZEROS. 

PICTURE 999 VALUE ZEROS. 

PICTURE 99 VALUE ZEROS. 

PICTURE 9 VALUE ZEROS. 

PICTURE 99 VALUE ZEROS. 
PICTURE 99 VALUE ZEROS. 
PICTURE 99 VALUE ZEROS. 



PICTURE X(6). 
PICTURE X(9). 
PICTURE X. 



8 
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PROCEDURE DIVISION USING PASSING- DATA. 
CLEAR-STORAGE. 

MOVE ZEROS TO SUB WEEK DAYS START- DAY WKDAY. 

MOVE R- TABLE TO D- TABLE. 

MOVE SPACES TO RETURN-ERROR RETURN-DAY. 

CHECK-DATE . 

MOVE RETURN-DATE TO WORK-DATE. 

IF MM > 12 MOVE "1" TO RETURN-ERROR. 

IF MM < 01 MOVE "1" TO RETURN-ERROR. 

IF DD > 31 MOVE "1" TO RETURN-ERROR. 

IF DD < 01 MOVE "1" TO RETURN-ERROR. 

IF YY > 90 MOVE "1" TO RETURN-ERROR. 

IF YY < 80 MOVE "1" TO RETURN-ERROR. 

IF WORK-DATE NOT NUMERIC MOVE "1" TO RETURN-EROR. 

IF RETURN-ERROR = "1" GO TO EXIT-PROGRAM. 

COMPUTE-YEAR. 

IF YY = 80 OR 
YY = 84 OR 
YY = 88 MOVE 



L- TABLE TO D- TABLE. 



DATE- JULIAN. 

MOVE ZEROS TO SUB. 

MOVE MM TO SUB. 

MOVE DDAYS (SUB) TO DAYS. 

ADD DD TO DAYS. 

MOVE ZEROS TO SUB. 



MONDAY. 








IF YY = 


90 


MOVE 1 TO 


START- DAY GO TO COMPUTE-WEEK. 


TUESDAY. 








IF YY = 


80 


OR 




YY = 


85 


MOVE 2 TO 


START- DAY GO TO COMPUTE-WEEK. 


WEDNESDAY. 








IF YY = 


86 


MOVE 3 TO 


START- DAY GO TO COMPUTE-WEEK. 


THURSDAY. 








IF YY = 


81 


MOVE 4 TO 


STRAT-DAY GO TO COMPUTE-WEEK, 


FRIDAY. 








IF YY = 


82 


OR 




YY = 


88 


MOVE 5 TO 


START-DAY GO TO COMPUTE-WEEK, 


SATURDAY. 








IF YY = 


83 


MOVE 6 TO 


START-DAY GO TO COMPUTE-WEEK, 


SUNDAY. 








IF YY = 


84 


OR 




YY = 


89 


MOVE 7 TO 


START-DAY GO TO COMPUTE-WEEK. 


COMPUTE-WEEK. 






COMPUTE 


WEEK ROUNDED = 


= DAYS / 7. 


IF WEEKDAY : 


= 1 MOVE 1 


TO WKDAY GO TO COMPUTE-DAY. 


IF WEEKDAY ■■ 


= 2 MOVE 2 


TO WKDAY GO TO COMPUTE-DAY. 


IF WEEKDAY ■■ 


= 4 MOVE 3 


TO WKDAY GO TO COMPUTE-DAY. 


IF WEEKDAY ■■ 


= 5 MOVE 4 


TO WKDAY GO TO COMPUTE- DAY. 


IF WEEKDAY ■■ 


= 7 MOVE 5 


TO WKDAY GO TO COMPUTE- DAY. 


IF WEEKDAY -■ 


= 8 MOVE 6 


TO WKDAY GO TO COMPUTE- DAY. 


IF WEEKDAY - 


= MOVE 7 


TO WKDAY GO TO COMPUTE-DAY. 



COMPUTE-DAY. 

MOVE ZEROS TO SUB. 

ADD WKDAY TO START-DAY. 

MOVE START- DAY TO SUB. 

IF THE-DAY (SUB) = "1" MOVE "MONDAY 

IF THE-DAY (SUB) = "2" MOVE "TUESDAY " 

IF THE-DAY (SUB) = "3" MOVE "WEDNESDAY" 

IF THE-DAY (SUB) = "4" MOVE "THURSDAY " 

IF THE-DAY (SUB) = "5" MOVE "FRIDAY " 

IF THE-DAY (SUB) = "6" MOVE "SATURDAY " 

IF THE-DAY (SUB) = "7" MOVE "SUNDAY " 

MOVE SPACE TO RETURN-ERROR. 

EXIT-PROGRAM. 
EXIT PROGRAM. 



TO RETURN- DAY. 
TO RETURN-DAY. 
TO RETURN-DAY. 
TO RETURN-DAY. 
TO RETURN-DAY. 
TO RETURN-DAY. 
TO RETURN-DAY. 



Reviewers' Comments: 

• Refer fo Tl-M IX library part number 90-038-006 "COBOL 
Utility Package." 



SFLD (SHOW FILE IN ia@$LD$) , 

FILE = *(ACNM) 
.SYN $SF$P = 9@$LDS.&FILE 
.IF "&F1LE" ,NE, "" 
.SHOW ?$SF$P 
.ENDIF 



To keep your disk packs clear of unneeded work files, set 
up a procedure that will delete all work files. NOTE: You 
must be sure than none of the work files in this procedure 
are needed each time before execution. It is suggested 
that this procedure be used before or after the work day 
when no one is on the machine. 



DELWORK( DELETE WORK FILES) 

DF P=.DDLINF01 

DF P=.DDLINF02 

DF P=.JUNK 

DF P=.TIPEOI 

DF P=.TIPP01 

DDF P=.WORKDIR,L=DUMY,A=Y 

DDF P=SYS001.W0RK,L=DUMY,A=Y 

DDF P=SYS001.JUNK,L=DUMY,A=Y 

DDF P=SYS001. PRINT, L=DUMY,A=Y 



(FILES IN WORK DIRECTORIES CAN ALSO BE DELETED 
SEE PAGE 12, SEPTEMBER 1981 TI-MlX NEWS 
AND PAGE 7, NOVEMBER 1981 TI-MIX NEWS) 



<~(for DXIO, change .BID) 



DDF (DELETE DIRECTORY FILES), 
DIRECTORY PATHNAME= ACNM , 
LISTING ACCESS NAME=*ACNM(ME) , 
ARE YOU SURE? =(ELEMENT(Y= YES, N=NO)) 
.IF &ARE YOU SURE? ,GE, Y 

.SYN DIR=9&DIRECT0RY PATHNAME 
MFP PATH=@DIR, DELETE PROTECT?=Y 
• IF ■3$$CC ,NE, 00000 

MSC T = " ERROR @$$MN IN MfP " 
.SYN DIR="" 
.SYN HOLD="" 
.EXIT 
.ENDIF 
** BID TASK DD 

.BID TASK=022, UTILITY, 
PARMS=(>22,@DIR,@6.LISTING ACCESS NAME) 
MFP P=@DIR 
.SYN DIR="" 
.SYN HOLD="" 
.ENDIF 



I often need to list a directory before deleting all the files. 
If all files can be deleted, use this procedure for conven- 
ience. DDF allows the user to do this in one procedure. 

LDDD (LIST DIRECTORY , DELETE DIRECTORY) 

PATHNAME=ACNM 

LD P=@& PATHNAME, L=.LDDD@$$ ST 

.SHOW .LDDD@$$ST 

DF P= .LDDD@$$ST 

MSG T="DO YOU WANT TO DELETE FILES IN THIS DIRECTORY" ,R=YESNO 

.IF SYESNO ,GE, Y 

DDF DP=@$LD$,L=ME,A=Y 

.ENDIF 

.SYN YESNO="" 

If you have a number of work directories that you would 
like to check before deleting, they can be linked together 
in one procedure (see LDDD). 

LDDDS (CHECK and DELETE WORK DIRECTORIES) 

LDDD D=SYS001.WORK1 

LDDD D=SYS001.ABD.WORKDIR 

LDDD D=SYS001.JUNK 



File and Directory 
Convenience Procs 

By Stephen R. Waltman 

Liqui-Box Corporation 

Worthington, OH 

Use this procedure to keep from having to reenter the 
directory pathname when you have to do many LDs (List 
Directory) or SFs (Show File). 



The following procedure allows the system time and date 
to be saved in a file every time it is executed. This can 
be helpful when there is a need to know the last time a 
given job(s) was run. Insert the SETDATE command in the 
procedure(s) that the last time and date is required. 



SETDATE 

SDT SYN=DATE 

.DATA SYSOOl.DATE, E=N,S=Y,R=Y 

9 DATE 

.EOD 

.SYN DATE="" 
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Reviewers Comments 

• In the procedure "SFLD" line 2, the parenthesis should 
be removed. The proc must be changed to allow a list 
to be useful here. The DDF procedure duplicates the 
function of the "Delete All Files from a Directory" (see 
page 12, September 1981 TI-MIX Newsj; and "Responses 
to Deleting All Files from a Directory" (see page 7, 
November 1981 TI-MIX Newsj. 

• The DDF procedure will not work on DX10. Change the 
.BID to an actual DD command. 

• Most of these procedures will not work on DX10 without 
modification. 



Install (Load) Volumes 

By Jimmy Plemons 

Diamond Rug & Carpet Mills, Inc. 

Eton, GA 

This procedure gives the user the option to install all disk 
volunnes with one procedure. It is useful when you initial- 
ize the system. I found that this is best inserted into the 
IS (Initialize System) procedure so the user will not have 
to do the IVs (Install Volume) after the system has been 
initialized. The errors will be the same as in the IV pro- 
cedure. The most common error is if the drive does not 
have the volume the procedure is trying to install. 



INSTALL (INSTALL VOLUMES ~DS02-DS03-DS04— )=0, 
INSTALL V0L002?= YESNO (YES), 
INSTALL VOL003?= YESNO (YES), 
INSTALL VOL00A?= YESNO (YES) 



into the list file ".V@ME." After all volumes have been 
done, the list file ".V@ME" will be displayed. 



! INSTALL DS02 



! INSTALL DSU3 



INSTALL DS04 



.IF "i INSTALL V0L002" , EQ , "YES" 

.OVLY OVLY=>1B,LUNO=0,PARMS=(21,DS02,VOL002) 

.END IF 

.IF "&INSTALL VOL003" , EQ , "YES" 

.OVLY OVLY=>1B,LONO=0,PARMS=(21,DS03,VOL003) 

•ENDIF 

.IF "4 INSTALL VOL004" , EQ , "YES" 

. OVLY OVLY=> 1 B , LUNO=0 , PARMS=( 2 1 , DS04 , VOL004 ) 

.ENDIF 

***CHANGE VOLUME AND DRIVE NAMES TO YOUR NAMES*** 



Reviewers' Comments: 

• Note that for DNOS, all online volumes are installed 
by the system during I PL, so this procedure is not 
necessary. 

• Change .OVLYs to IV to be compatible with DNOS and 
future releases of DX10. 



Show Volume Status 

By Jimmy Plemons 

Diamond Rug & Carpet Mills, Inc. 

Eton, GA 

This procedure will list and display the volume status of 
ail the volumes. This cuts down on time having to enter 
the SVS procedure for each volume. This procedure 
creates a file called ".V(^ME" which is the file where the 
SVS lists will be placed. For each volume done, a list file 
called ".S@ME" is used to store the information, then an 
Append File (AF) is done to place the stored information 



VSTAT( VOLUME'S DS01-DS02-DS03 STATUS REPORT)=0 

.DATA .VSME,EXT=N0,SUB=YES 

VOLUME STATUS FOR DSC 1 

.EOD 



.BID TASK=>37,LUNO=0,PARMS=(0,,DS01,.S@ME) ! SVS DSOI 
.BID TASK=>34,CODE=l, ! AF 

PARMS=((.S@ME),.V(3ME,N0,YES,YES,) 



! START DSOI SVS ROUTINE 



.DATA .V$ME,EXT=YES,SUB=YES 



.'START DS02 SVS ROUTINE 



VOLUME STATUS FOR DS02 

.EOD 

.BID TASK=>37,LUNO=0,PARMS=(0,,DS02,.Si3ME) ! SVS DS02 
.BID TASK=>34,CODE=l, ! AF 

PARMS=((.S@ME),.V@ME,N0,YES,YES,) 



.DATA .V(aME,EXT=YES,SUB=YES 



! START DS03 SVS ROUTINE 



VOLUME STATUS FOR DS03 

.EOD 

.BID TASK=>37,LUNO=0,PARMS=(0,,DS03,.S@ME) ! SVS DS03 
.BID TASK=>34,CODE=l, !AF 

PARMS=((.S(?ME),.V@ME,N0,YES,YES,) 

.SHOW .V9ME !SHOW SVS' 



EXAMPLE: 

VOLUME STATUS FOR DSOI 

VOLUME NAME: VGLOOl ADUS: 65381 it BAD: BYTES/ADU: 2592 
AVAILABLE: 4696 LARGEST AVAILABLE BLOCK: 2702 CONTROLLER ERRORS: 
PRIMARY SYSTEM IMAGE: SYSOl SECONDARY SYSTEM IMAGE: SYS02 
NAME INSTALLED :VOL001 

VOLUME STATUS FOR DS02 

VOLUME NAME: VOL002 ADUS: 65381 # BAD: BYTES/ADU: 2592 
AVAILABLE: 5744 LARGEST AVAILABLE BLOCK: 3783 CONTROLLER ERRORS: 
PRIMARY SYSTEM IMAGE: SECONDARY SYSTEM IMAGE: 

NAME INSTALLED :VOL002 

VOLUME STATUS FOR DS03 

VOLUME NAME: V0L003 ADUS: 65381 It BAD: BYTES/ADU: 2592 
AVAILABLE: 18392 LARGEST AVAILABLE BLOCK: 16543 CONTROLLER ERRORS: 
PRItlARY SYSTEM IMAGE: SECONDARY SYSTEM IMAGE: 

NAME INSTALLED:VOL003 

Reviewers' Comments: 

• In DNOS environments, the supplied SVS command 
accepts the response ALL to the VOLUME NAME prompt 
and delivers output similar to the above. 

• There is a simpler procedure, "Show Status of All 
Volumes" (see page 8, February 1981 TI-MIX News). See 
also "Show Volume Status— All Volumes" {see page 8, 
November 1981 TI-MIX News). 

• All .BID primitives should be replaced with procedure 
calls for compatibility with DNOS and other releases of 
DX10. 



Spooler On/Off 

By Steptien R. Waltman 

L iqui-Box Corpora tion 

Worthington, OH 

For DNOS users some jobs may require that the spooler 
be turned off. An example would be those jobs that create 
no print file but print directly to the printer. Below is a 
procedure that will allow the user to turn the spooler off 
and another that will allow the user to turn the spooler 
back on. 



SPOOLOFF (TURN SPOOLER OFF), 

PRINTER NAME?=STRING 

RLN LN=iPRINTER NAME? 

MSD DN=iPRINTER NAME?, ATS=NO 



10 



SPOOLON (TURN SPOOLER ON), 

PRINTER NAME?=STRING 

ALN LN=&PRINTER NAME?,RT=S, LDOC=iPRINTER NAME?, B 

MSD DN=i PRINTER SAME? 

GL256 (a job that prints directly to the priater) 

SPOOLOFF PRINTER NAME=LP01 

•SYN PRT=LP01 

.BID TASK=GL256 , 

SPOOLON PRINTER NAME=LP01 
.SYN PRT="" 



Reviewers' Comments: 

• These commands are not as necessary with DNOS 1.1 
as they were with DNOS 1.0. With DNOS 1.1, if the spooler 
is set with the MSD command to be REMOTE/SHARED, 
a tasl< can write directly to the spooler between print re- 
quests. The task may have to wait for the printer to be 
free. Another way to accomplish the goal of getting data 
from a tasf< to the printer is to have the task write to a 
spooler logical name. When the task closes its LUNO to 
the logical name, a temporary file of data from the task 
is spooled and printed. With either of these approaches, 
spooling does not need to be disabled. 



Soiiition to 
System Operator Problem 

By Stephen R. Waltman 

Liqui-Box Corporation 

Worthington, OH 

A problem for DNOS users where there is a need to allow 
more than one person to become the system operator 
(XOl) is that one user may become the system operator 
and forget to quit the system operator (QOI). Below is one 
solution to the problem. 
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ONLY 1 LINE NEED BE ADDED TO 'XOI' 



XOI( EXECUTE OPERATOR INTERFACE)=2 

•IF ?$$M0, EQ, 

MSG TEXT=" COMMAND IS INVALID IN BATCH MODE" 

.EXIT 

•ENDIF 

*BID TASK. XOI 

.RBID TASK=062, UTILITY, PARMS=( 1000, 1000,4) 

.OPTION PROMPT ="[XOI AT @ME~]" <- 

.END IF 

.MENU 

AND ONLY 1 LINE NEED BE ADDED TO "QOI" 

QOKqUIT OPERATOR INTERFACE) =2 

.IF @$$M0, EQ, 

MSG TEXT="COMMAND IS INVALID IN BATCH MODE" 

.EXIT 

.ENDIF 

.SYN $XOI$MEN = "" 

*BID TASK XOI 

.RBID TASK=062, UTILITY, PARMS=( 1000, 1000 ,5) 

.OPTION PROMPT ="[@HE"]" < 

.ENDIF 

.IF "@$XOI$MEN", NE, "$X0I5MEN 

•SYN $XOI$MEN = "" 

.MENU 

.ENDIF 



-ADD THIS LINE 



Convert Julian Date 
to Gregorian Date 

By Richard E. Headley 

KPS Software Solutions, Inc. 

Westlake Village, CA 

This procedure converts the given Julian date into the 
corresponding Gregorian date. This can be handy after 
looking at the log files to determine which day the entry 
was put in the log file. This code can be handily coded 
into a BASIQ FORTRAN, Pascal, or COBOL program as 
well. 



GREGORIAN( CONVERT JULIAN DATE TO GREGORIAN DATE)-0, 
YEAR =INT(83), 
JULIAN DATE =INT(1) 



.IF 6.JULIAN ,LT, 1 

MSG T=" JULIAN DATE MUST BE GREATER THAN ZERO." 
.EXIT 
.ELSE 

.IF &JULIAN ,GT, 365 

MSG T=" JULIAN DATE MUST BE LESS THAN 366." 
.EXIT 
.ENDIF 
.ENDIF 

.SYN YY=&YEAR, 

JULIAN=&JULIAN, 

INT="0" 

DD="0" 

MM="0" 

* 

.EVAL INT = 3YY / 4 
.EVAL INT = 3 INT * 4 



VERIFY JULIAN DATE 
IS VALID. 



DETERMINE IF IT IS 
LEAP YEAR. 



.IF @YY ,EQ, @INT 

• SYN LEAP="r' 
.ELSE 

.SYN LEAP="0" 
.ENDIF 

.EVAL INT = @YY + 59 
.IF OJULIAN ,GT, @INT 

.EVAL DD = gJULIAN + 2 - gLEAP 
.ELSE 

.SYN DD=@JULIAN 
.ENDIF 

.EVAL MM = @DD + 91 

•EVAL MM = @MM * 100 

.EVAL MM = @MM / 3055 

.EVAL DD = @DD + 91 

.EVAL INT = 3MM * 3055 

.EVAL INT = SINT / 100 

.EVAL DD = @DD - @INT 

.EVAL MM = SMM - 2 



THIS CODE USES THE 
FACT THAT 30.55 
(MM+2) - 91 PASSES 
THROUGH THE NUMBER 
OF DAYS PRECEEDING 
EACH MONTH. 



MSG T="@MM/@DD/@YY" 



! DISPLAY GREGORIAN 



.SYN MM="", YY="", DD="", INT="", JULIAN="" , LEAP="" 

Reviewers' Comments: 

• Note that the DNOS log files do use Gregorian dates 
in the 1.1 release, a change from the 1.0 release. 

• Procedure name should be shortened to "GREG." □ 



Reviewers' Comments: 

• XOI and QOI also make entries in the system log, show- 
ing who at what station became the operator or quit be- 
ing operator. Unless the person remains the operator so 
long that the log files are reused, data in the log files 
can be used to see who the operator is. (The approach 
above works fine if the operator heeds the XOI reminder!) 
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MIXTURES By Terry Hahn 




LIBRARY UPDATES 

(Programs and Papers) 



Listed below are the newest additions to the TI-MIX Library. Updated library catalogs are distributed to members quarterly and are available through the 

Tl-MlX nffinfl Dptailc; nnnnprninn nrHorc cnKmiceinnc nnoratinn n/ilioioe ani-( Hiof^lnimar-c or« miWIioKn^ {n />w/^r>i n^t^i^^ x« ^^^^^ '.4„„„ i:„i_j i,_i 

_...__. _ _ — ._ jg ^ . ^^. ^^ , , .,, .„, s^frf«.«t,,,y f^v^i.wivw, ^1 ,^ ^,Kj\jn^nti\^txj %ui\j ^xjtjii,ji\\jKji iti v^v^ijr v.^cuwiv-'y. ivjuiuci uc:;ino iioicu utifiuw, 

send your requests with check (must be payable in U.S. dollars to "TI-MIX") or purchase order (add a 10% handling charge to all purchase orders) to 
TI-MIX, M/S 2200, P.O. Box 2909, Austin, Texas 78769. Be sure to specify computer media needed. Orders will not be accepted by phone, but if you have 
questions about ordering, call Ginnie Franklin at (512) 250-7151. NOTE: European members should request ordering information and prices from TI-MIX 
Europe, P.O. Box 12995, 1100AZ Amsterdam Zuitoost, Netherlands. 



93-038-010 COBOL Square Root 
SUBMITTOR: James R. Fisher, I.C. System 
COMPUTER/SYSTEM/LANGUAGE: 990/DXIO/Assembly 
SORT is an assembly language routine wfiicli will calculate the 
square root for any given numeric unsigned display value. The 



method used is a simulation of the long-hand square root 
process. 

MEDIA AVAILABLE: Double-sided, dual-density diskette; mag 
tape (specify 800 or 1600 BPI) 

1. Complete pacl<age: $30 (source, object, documentation) 

2. Documentation and listing only: $5 



1982 European Symposium Abstracts 



200-82 Linking DS990s in a Network with VTERM (Virtual 

Terminal) 
SUBMITTOR: J.L Chaslain/TW. Scott, Fabrique National Herstal; 

Herstal, Belgium 
SYMPOSIUM: London 1982 COST: $2 per copy 

In 1981 we encountered the well-known limit in the number of 
terminals connectable to a single CPU under DX10. 
Subsequently, a second CPU was installed in May 1981. Several 
problems soon became evident: duplication of SCI procedures, 
data files and applications, transfer of data between the two 
systems, and the unpleasant prospect of users requiring two 
terminals to access two CPUs in order to complete their day's 
work. We needed to link the two systems in an effective way. 



Several solutions were analyzed: the 3780 approach, a TILINE 
link, simple disk/tape transfers, and VTERM. VTERM was 
chosen since it permits us to connect the two CPUs via a 
synchronous communication interface and a standard seven- 
wire cable with V24 connectors. VTERM enables users to 
log on CPU-2 from CPU-1 (and vice-versa) and to work there 
normally, and users to transfer complete directories between 
the two CPUs, including program files and compiled object 
modules. 

The paper covers our experience in installing and using 
VTERM, costs and benefits, advantages and problems, future 
plans to expand our VTERM network, and ideas for other uses 
of this product. (11 pages) 
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201-82 Organization of a Networl( of Point-of-Sales Terminals 

at Credit Europeen 
SUBIVIITTOR: Carlo Hensgen, EPOS S.A.; Paris, France 
SYlVIPOSiUIV!: London 1982 COST: $2 per copy 

Credit Europeen is a banl< located in Luxembourg, using two 
Ti DS990 Model 30 computers with dual-access disk drives for 
the supervision of a network of various point-of-sales terminals: 

• TPE from CGA in petrol-service stations, directly connected 
to pumps 

• IP! from CGA in stores 

• C71 cash registers from PRODATA in stores 

All these terminals use automatic dialing on the switched 
network. They allow online transactions using VISA orTelecash 
credit card. The TI DS990 Model 30s are further connected to 
the bank's CII-HB Model 64. This presentation includes: the 
general description of the network, the problems met while im- 
plementing new protocols under DX10, and the present 
developments. (12 pages) 



202-82 Local Area Networks 

SUBMITTOR: Herman Dierks, Texas Instruments; Austin, Texas 
SYMPOSIUM: London 1982 COST: $2 per copy 

This paper is an overview of current Local Area Network (LAN) 
technology and its future uses. LANs will change the way all 
new computer systems will be built. The special features of 
LANs are presented. The major types of LANs are described, 
including current vendors, advantages, and disadvantages. The 
concepts of shared access to expensive resources such as 
disks, printers and remote networks are included. (15 pages) 



203-82 Distributed Information Processing (Retail Environment) 
SUBMITTOR: Jan Kapers, Ahold, N.V.; Zaandam, Netherlands 
SYMPOSIUM: London 1982 COST: $2 per copy 

This paper consists of an overview of all the information 
systems used in the past, present, and future that correspond 
with our authorized list of suppliers. One of the items on that 
list is the supplier of micro- and minicomputers. Ahold selected 
TI DS990 commercial systems mainly based on the offered 
flexibility and user-friendliness. Also important was the 
availability of the programming language Pascal. This paper 
focuses on one application from our organization, including the 
distributed information network, based on our information 
processing strategy and the corresponding infrastructures. (7 
pages) 



205-82 Using Barcode in Several Business Applications 
SUBMITTOR: Jan Mattelaer, ORDA-B; Korbeek-Lo, Belgium 
SYMPOSIUM: London 1982 COST: $2 per copy 

This paper is an introduction to the use of barcode. It covers 
the following topics: what is barcode, the codification of 
barcode, barcode readers and printers, where can we use 
barcode, and connection of barcode readers to minicomputers. 
(12 pages) 



206-82 The DXIO-Based Operating Systems -Compatible but 

Different 
SUBMITTOR: George Barilla, Texas Instruments; Austin, Texas 
SYMPOSIUM: London 1982 COST: $2 per copy 

The DXIO-based operating systems originated in 1976 with the 
introduction of DX10 on the 990 minicomputer. Since that time 
we have seen the introduction of DX5 (on the DS990 Models 1 
and 2), DX7 (on the DS990 Model 3), and most recently DX10 
MICRO (on the Business System 200), a "family" of 990-based 
computer products. 

This paper reviews the major features of these DXIO-based 
operating systems, describing exactly what is compatible 
among them, and highlighting those differences and/or 
restrictions that make each operating system unique. (39 pages) 



207-82 A New Way of Solving DX10 CRASH 30 Code 
SUBMITTOR: Andre Colin, Centre D'Informatique Generate; 

Brussels, Belgium 
SYMPOSIUM: London 1982 COST: $4 per copy 

Under DX10 as the number of attached terminals and executing 
tasks increases, the systems manager is faced with the well- 
known problem of CRASH 30 codes. 

Classical software techniques to solve that problem are 
reviewed in this paper. However, CIG has developed a new 
software product giving increased benefits by distributing the 
terminals and their tasks over two or more CPUs and concen- 
trating the common data files and their management on a single 
CPU. The processors are connected using a TILINE coupler 
interface and shared memory techniques. 

Various running configurations are detailed with more than 
60 terminals running in parallel in a business environment using 
COBOL programs. (33 pages) 



204-82 EEC Hazard Labeling System 
SUBMITTOR: Tony Sinclair, Radius SBA; London, England 
SYMPOSIUM: London 1982 COST: $2 per copy 

EEC directives make it mandatory to warn users of paints, inks, 
varnishes, resins, adhesives, etc., any risks inherent in their 
products and the safety precautions to be taken. This is now 
law in many countries and soon will be law in the remainder. 
Paints and allied products are complicated chemical 
mixtures. To determine the risks, rules have been enacted 
requiring complex and time-consuming calculations. Thirty to 
forty-five minutes per formula can be avoided using a computer 

nj aaaiai m iiic yicociiiaiiv^ii \ji mc ucuioiv^ii-maiMnv^ uwiu. 

Written in BASIC as a laboratory tool, specially designed to 
deal with the problem, it can stand alone or be linked to any 
formulation files the user may have. Central to the system is 
the expandable data base of chemical information on those 
substances the EEC has decreed to be hazardous. The data base 
contains a library of approved phrases describing the risks and 
safety measures. 

With minimal involvement of the user, the system examines 
the formula breaking it back to base chemical elements and 
performing a complicated series of analyses and calculations 
to determine, under three different sets of rules (laid down in 
three EEC directives), the nature and degree of the hazards 
attached to the product and to recommend items for inclusion 
with the product's label. (6 pages) 



208-82 General Purpose Multiprocessor System 
SUBMITTOR: D.J. Evans/I.A. Newman/M.C. Woodward, 

Loughborough University; Loughborough, 

England 
SYMPOSIUM: London 1982 COST: $2 per copy 

This paper describes the configuration and use of a system 
comprised of four 990/10 processors, each with 128K bytes of 
private memory and all linked to a shared 64K bytes of memory 
and a 50MB disk drive. Each individual machine runs under the 
DX10 operating system but there are additional facilities to 
enable users to develop and execute programs which run on 
two or more machines simultaneously. 

The development of the system is outlined and the extra 
facilities are described. Some examples of programs which use 
the parallel system will be given to indicate the speed-up that 
can be achieved when compared with single processor opera- 
tion. The ability of the system to be used to process general 
purpose workloads more effectively than a single larger proc- 
essor is discussed. (5 pages) 
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209-82 A Distributed Decision Support System for Forestry 

Production Control 
SUBIVIITTOR: Torsten Lundquist, Infologigruppen A.B.; 

Stockholm, Sweden 
SYIVIPOSIUM: London 1982 COST: $4 per copy 

The timber production at the Swedish State Forestry 
Commission (Domanverket) is an operative production which, 
because of geographical reasons, is both extensive and 
distributed. Control of this production requires a good 
knowledge of the state of the local forests and for that reason 
control is decentralized to a large number of persons. There- 
fore, a decentralized decision support system (DSS) was 
developed. 

The application is installed on a number of DS990 systems 
equipped with CRTs, both local and remote. Each system is 
independent but can establish communication sessions with 
each other using dial-up lines or the public data network 
(DATEX). At the same time a system can act as a 3274 controller 
with interactive access to a host for central applications. The 
programs are written in Tl Pascal, TIFORM, and DBMS-990. 

The philosophy guiding development of the system was to 
build up not only an application system, but also a knowledge 
among the people who are participants in the Information 
system so that the system can continuously develop under their 
control. The system makes an attempt to be evolutionary. 
QUERY and DBMS played an important role in this attempt. (27 
pages) 



210-82 System for Weighing, Pricing and Billing of Bulk Material 
SUBMITTOR: Carl-Erik Brohn, Skanska Cementgjuteriet; 

Danderyd, Sweden 
SYMPOSIUM: London 1982 COST: $2 per copy 

Skanska, a building construction company, has developed a 
system for handling orders, weighing trucks, producing weigh 
bills outdoors, pricing and billing of materials and transports, 
and producing sales statistics. The hardware is a Tl 990 Model 
4 with displays, OMNI printer, disks, and communication with 
user terminals for ID keys, weigh bill printer, and weigh bridge. 
The system Is implemented in two "Places for wei^hin" 
asphalt, concrete, gravel, etc., but can be used for other 
applications where bulk material is handled. (13 pages) 



211-82 Providing Tl 990 Transactions Real-Time to an IBM Host 
SUBMITTOR; Mark Rissmiller, MFA Incorporated; Columbia, MO 
SYMPOSIUM: London 1982 COST: $4 per copy 

This paper consists of two strategies in providing real-time 
information (or near real-time) from a series of Tl 990 systems 
to an IBM 4341 computer system. Each strategy has been tested 
and evaluated for possible full implementation on eight Tl Model 
20 systems all located at this agri-business home office 
computer center. These Tl systems provide remote service for 
nearly 80 locations within a 300-mile radius from the home 
office. 

The investigation and need for transmission of the 
transactions to the IBM host was brought about by a company 
requirement for up-to-the-minute consolidated information. With 
data needed for reports and consolidated inquiries spanning 
multiple Tl 990 systems, logistical problems became imme- 
diately apparent. 

This paper begins with an overview of the computer equip- 
ment setting and the system software involved both on the Tl 
systems and the IBM system. Included is a look at Ti's 3270 ICS 
software package and, in particular, the powerful PSC 
(Programmed Station Control) feature which is the basis for the 
communication of the transactions. Also covered are the 
application software functions, which are written in COBOL, 
and the changes that were required to the application to provide 
the data transmission to the IBM host. The "remote disk I/O" 
strategy and the "single-thread queueing" strategy is included 
because of their effect on system utilization and system 
performance. (19 pages). [J 



EXCHANGE 

Policy: All matters concerning any exchanges resulting from the Ex- 
change section of the TI-MlX News shall be solely between the inquirer 
and the offering party. Publication of product or service announcements 
does not constitute an endorsement by TI-MIX or Texas Instruments Incor- 
porated. If you desire service from Texas Instruments on the products 
listed in the Exchange, please contact Tf directly for information on the 
eligibility of service for that product. No help wanted advertising will be 
accepted. Hardware notices may not include prices or percentage dis- 
count figures. Pricing information may be included for software and ot.her 
services. A submittal form with details on rates, policies, and deadlines is 
available from the Tl-fWIX office. 

General Information: Exchange notices are due on the first working day 
of the month before the date of the issue. For example, input for the June 
1983 issue wouid be due May 2, 1983. Notices submitted must be accom- 



panied by full payment in U.S. dollars payable to "TI-MIX." There is a 15 
percent discount on three-time repetitions of the same notice (either 
classified or display). Months specified do not have to be consecutive but 
notices must be published within six months. Other volume advertising 
discounts are listed on the Exchange Submittal Form available through 
the TI-MIX office. 

Rates: Rates are as follows: $1 per word with a 15-word minimum for 
classified notices. The first few words will be set in boldface type and 
notices will be classified as either software or hardware. Telephone 
numbers and post office boxes count as one word each. Display ads (with 
logo, drawings, photographs, etc.) must be ordered by the column inch. 
Columns are 2-1/8 inches wide. A 1-inch high by 2-1/8-inch wide display ad 
costs $75. An ad 2 columns wide (add 1/4 inch for margins between col- 
umns to total 4-1/2 inches) by 2 inches high costs $300. Display ads must 
be sent as camera-ready art. The back page is 7 by 7 inches (21 column 
inches) and costs $1,575 for one month. A full page ad is 7 inches wide by 
9 inches high and costs $2,025 (for 27 column inches). Specific placement 
of full page ads can be requested but placement of smaller notices (such 
as "back page" or "top ieft corner") cannot be requested or guaranteed. 



Harduisre 



WE DEAL IN USED Tl EQUIPMENT Buy or 

Sell. Confidential Data Services (303) 
232-0652. 



ROCKY MOUNTAIN USERS. Call CDS for 
a competitive bid on Tl hardware main- 
tenance. (303) 232-0652. 
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HardujflrE 



REDUCED: 990/10 CPU in 13-slot 
chassis, programmers panel, single-bay 
desk, used, no memory controller. Call 
(314) 443-0150 or (816) 525-3456. 

Tl LINE ADAPTER FOR SASI DEVICES. 

Fully compatible with standard operating 
systems, implemented with microprocessor, 
the controller has automatic error handling. 
Echotrading, Viale Restelii, 3, 20124 Miiano, 
Italy. Telex 315132. 

WE BUY AND SELL USED EQUIPMENT Tl 

and others. Call CDS (517) 321-6500. 



USED Tl SYSTEMS AND PERIPHERALS. 

We buy and sell all Tl equipment new and 
used. Contact Tom Howard (614) 431-0666. 



Tl MAINTENANCE, WEST COAST. 

Reasonable rates, excellent service/re- 
sponse. Call for quote: CPA Systems Corp. 
(916) 678-1651. 



BRAND NEW NEVER USED Tl M554 Model 
771 to DS990 Model 1 upgrade kit. (313) 
569-7175. 



WANTED: NEW OR USED Tl Model 
990/1-771 internal 202 Modem (993104-002). 
Mike Lim (213) 706-3333. 



COMMUNICATIONS EQUIPMENT FOR Tl 
990 COMPUTERS. Modems and multiplex- 
ers. Low prices! Call Richard Taylor at (805) 
492-1346. 



Tl MAINTENANCE IN UPPER MIDWEST 

Call D. Riley at Tele-Terminals for a com- 
petitive bid in Minnesota, Wisconsin, N. 
Dakota, S. Dakota, or Iowa. Call (612) 
536-6062. 



SURPLUS EQUIPMENT: Hawk disk drives 
(used), 911 VDTs (new), etc. Raymond 
McDavid (713) 461-6750. 



DISK DRIVE UPGRADE. T25 TO T50. We 

will upgrade your drives or exchange your 
T25s for our T50s. CDS (303) 232-0652. 



NEED CABLES FOR YOUR Tl TERMINAL 
SCREENS AND PRINTERS? We have many 
lengths in stock now. Call today for pricing 
and availability. Computex, Inc. (313) 
663-9590. 



NEED EXTRA DISK CAPACITY for your Tl 
DS990. We can supply you with Trident 50, 
80, 200, 300 megabyte disk drives, Win- 
chester 20 through 380 megabyte drives and 
upgrade kits. Also, we have ECC disk con- 
trollers for a wide range of disk drives, in- 
cluding Winchester disk drives, with Va" or 
V2" Streamer tape options. Contact Multi- 
Systems at (313) 239-4188. 

FOR SALE DS990 MODEL 1 with 810 
printer. Call (216) 886-4148. 



USED Tl DS990 MODELS 4-7-8-9, disk 
drives, Tl ECC memory, new ECC memory, 
and more. We also buy used equipment. 
Contact Multi-Systems at (313) 239-4188. 



FOR SALE Tl 990/10 MODEL 4, 256K, DS10 
disk, two 911 CRTs, Tl 804 card reader, Tl 
979A 1600 BPI tape drive, Dataproducts 2260 
600 LPM printer, EIA-RS232 boards, IBM 
emulator and COM board. All or part. Best 
offer. Call Mark or Jes at (213) 820-9452. 



LINE PRINTERS: TI/PRINTRONIX NEW 300 
LPM/600 LPM. Huge Savings! We cannot 
advertise prices in this magazine, but our 
prices are much lower than the maximum 
discount Tl gives to their dealers. General 
Data Company, Inc., 5173 Campbells Run 
Road, Pittsburgh, PA 15205 or call (412) 
788-4800. 



FOR SALE: USED MODEL 30, 768K with 
cache, three DS200s, 979 tape drive, 17- and 
13-slot chassis, 20 911 VDTs, two 810 
printers, and two Printronix 600 LPM 
printers, estimated availability: May 1983. 
Call Dave LeTourneau, Commercial Drywall 
at (713) 681-9287. 

SPEED UP YOUR 990 COMPUTER with full 
size memory board including controller and 
up to 256 KBytes of static memory with 70 
nanosecond access time. Echotrading, 
Viale Restelii. 3. 20124 Miiano. Italy. Telex 
315132. 

MID-MICHIGAN TI990 COMPUTER 
MAINTENANCE. Let our excellent Multi- 
Systems service department maintain your 
Tl equipment and system software needs. 
Call (313) 239-4188. 



^lOITAL 



Electronic S« 



HOUSTON AREA! 

T.I. MAINTENANCE AT 

COMPETITIVE RATES. 

BOTH CONTRACTS ON-CALL. 

ALSO ON NON-TI. EQUIPMENT 

713-468-3611 



I^IGITAL 

Electronic Services, Inc. 



4023 Greenwood Road 
Shreveport, La. 71109 
318-636-2672 
1-800-551-8131 
TWX 5109734138 



T.I. EQUIPMENT 

AND 

Tl. COMPATIBLE PERIPHERALS 

AT 

UNBELIEVABLE DISCOUNTS! 



T.I. COMPATIBLE PERIPHERALS 

FUJITSU WINCHESTER DRI\/ES 
48,84, 169&474 MEG 

SPECTRALOGICDISK 
CONTROLLERS 

CDC STREAMER TAPE DRIVES 

DATA PRODUCTS B300 AND B600 

CDC PHOENIX DRIVES 

9448/64 9448/96 

CENTURY DATA DRIVES 

T-50, T-82, T-200, T-302 



Introductory Special 

Spectra 

Logic 

Controllers 

See you at TI-MIX 1983 booth #35, 
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Tl MEMORY UPGRADE. No down time ex- 
change. We have references, provide a one- 
year warranty and fixed-price repair. C.D.S. 
(303) 232-0652. 

IN STOCK! Tl Business Systems, 990/12, 
990/10, peripherals, and spares at substan- 
tial discounts and immediate delivery. 
Weatherford Computer Systems (512) 
250-1079. 



T.I. SERVICE 

AND PARTS WAREHOUSE 

HOUSTON 

SOUTH TEXAS 

LOUISIANA 

(CHECK OUR RATES) 

JONES BUSINESS SYSTEMS 
713-957-0600 



Used 



Texas Instruments 



Excellent discounts on 
BS 200, 300, 600 

American Frontier 

Computer 
(602) 955-0471 



LARK1 and LARK 11 
Disk Subsystems 

T.I. 990 (DX10 and COS990) 
Fixed/Removable Replace- 
ment For DS10, CD1400-32 
and DS50 disk drives. 

* 8/8 Mbyte b^RK 1 (ConTrol Data) 

* 25/25 Mbyte U^RK 1 1 (Control Data) 

* SMD 4 drive disk controller (Interphase) 

* Texas Instruments Rackmount Kit 

* Cables 

Caii For Quantity Pricing 

SOUTHWEST IVIODUUkR SYSTEI^S 

731 Lingco, Suite 103 

Rictiardson, Texas 75081 

214/690-6720 



APRIL SPECIALS: 64, 192, 256K, memory ar- 
ray (16K) boards, cables, 64K memory con- 
trollers in stock. 911s with dual controllers, 
810 master kits, and 990 communications 
boards. Sublicenses and updates on most 
all Tl system software are aval labia Respon- 
sive Computer Systems, Inc., 620 Haggard, 
Suite 612, Piano, TX 75074, (214) 423-5944, 
or 8910 B-2 Research Blvd., Austin, TX 
78759, (512) 459-3197. 

HIGH QUALITY VIDEO TERMINAL plug 
compatible with 911, ergonomic design, 15 
"display adjustable two ways", low profile 
keyboard, 18 programmable function keys. 
Echotrading, Viale Restelli, 3, 20124 Milano, 
Italy. Telex 315132. 

MODEL 1 AND 771 WANTED IN GOOD 
CONDITION. Call Capital Data, Mark 
Holmes at (517) 321-6500 in Lansing, Ml. 

COMPLETE COMPUTER SELLOUT! Tl 

990/10 with 17-slot chassis, DS10 pedestal 
drive, 911 VDT with 100 ft. cable, dual con- 
troller board, 224K memory, Tl 810 printer, 
COBOL, FORTRAN, BASIC compilers, DX10 
operating system, word processing soft- 
ware, and name/address software. Contact 
Eddie Roberts at (205) 883-9006. 

FOR SALE: Tl 990/10 Model 4 System. 
128KB, DS10, 911 VDT, 810 printer, 
languages. Call (212) 625-5147. 

VIDEO CONTROLLER FULLY 911 COM- 
PATIBLE. The board includes two video 
ports and an extra printer interface. 
Echotrading, Viale Restelli, 3, 20124 Milano, 
Italy. Telex 315132. 



FOR SALE 774 CPU, 96KS, dual 911 con- 
troller, FD1000, EIA board, 820 KSR. Call 
(215) 845-3294. 

Tl DS990/10 MODEL 4 MINICOMPUTER. 

Memory raised to 256K bytes, 911 VDT ter- 
minal, DS10 disk drive, Tl 810B printer, low 
price. Old National Leasing Company (509) 
456-6709. 

FOR SALE: Tl CD 1400 96 MEGABYTE DISK 
DRIVES, Secondary Kits. 990/10 CPU, 13-slot 
chassis with programmer panel, 96K ECC 
with two 256K array tx)ards, 30-inch cabinet. 
TTY/EIA cards. All Tl maintained. Axis MUX 
also available. Call Bill Little at (305) 
772-5883. 

Tl MAINTENANCE: FLORIDA. All models, 
mini and micro. Competitive prices, quality 
service over entire state. Fast response. 
Contract or per-call basis. Call SYMCO, Inc., 
at (305) 869-0808. 

USED MODEL 4, LP300, DS10 primary, DS10 
secondary, best offer. CDS. (303) 232-0652. 

T50 AND 990/12 CPU FOR SALE. The T50s 
are six months old. The 990/12 has cache. 
Call Capital Data, Mark Holmes at (517) 
321-6500 in Lansing, Ml. 

DISK AND TAPE SYSTEMS. If you are look- 
ing for value, reliability and performance in 
Tl-compatible equipment, call and ask us 
about our pretested peripheral subsystems 
featuring: CDC disk drives, Custom Systems 
controllers and Cipher tape drives. Special 
this month: CDC 160 MB sealed MMD with 
CSI controller. Call ASC Subsystem Sales 
at (617) 426-2918. 



AVAILABLE NOW! 
PROPER 



► TM 



CP/M® under DXIO 

A half-slot interface card which directly executes CP/M® with minimal 
load on your CPU and allows pass through to DXIO. 

Our Speed Will Convince You 

Compare our PROPER'" card with standard CP/M® systems and CP/M 
emulators. For speed, transparency and price the only choice is 
PROPER. ™ 

Axis Technology has been building, delivering and supporting hardware 
and software for TI990s since 1976. Buy from the people with 
experience. 

Axis Technology 
ARIEL SYSTEMS INC 

3959 Ruffin Road 
San Diego, CA 92123 
(619) 560-4281 
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Pick an ACECO solution 
to speed your processing, 
and get more done every day! 

Give your 990/10 or /12 the speed and power of a larger system 
...for a very modest price! 



When your computer works faster, so can 
your people, so you get more work done for tfie 
same payroll investment. Wfien we use the 
word "power", we're talkingabouttheability to 
accomplish more, in less time. If your people 
spend time waiting for your computer to let 
something happen, a small investment in more 
computing power can reap big dividends in 
higher staff productivity. 

At ACECO, we engineer and produce many 
different products to make your TI990 work 
faster than ever before. Because we realize 
your particular processing needs may place 
unique demands on your system, we offer a 
variety of solutions. By addressing some of 
these common processing loads directly, our 
products can give you a better cost/perfor- 
mance ratio than a broad system upgrade. 

Also, by giving you a variety of system 
options, we give you the power to upgrade your 
system one step at a time, solving your most 
pressing needs first. This lets you spread your 
investments for equipment over whatever 
period fits your business need. 

We believe you should have a range of 
choices to get exactly the proctssmg power 
you want for the least investment possible. 
Consequently, by choosing a single board or a 
combination of boards, at ACECO you can solve 
a problem in perhaps several different ways 
over a range of prices. 
FASTRAM'" gives 85 nanosecond 
average access 

Our new FastRam 256k static memory board 
can speed up every task using memory. In fact, 
according to our tests, replacing standard Tl 
memory with FastRam may increase total sys- 
tem operating speed by nearly 50% in a multi- 
terminal environment. Not only is FastRam 
faster than standard Tl memory, it's even 
faster than our own Mega Ram memory boards. 
But 256k of FastRam costs about twice what 
256k of Mega Ram costs. So which should you 
buy? If your processing is slow because you 
need more memory, either Mega Ram or Fast- 
Ram will solve your problem. On the other 
hand, if the problem is due to the rate at which 
memory serves your processor, FastRam is the 
definite choice. Here at ACECO, you have a 
choice of performance speeds and a corres- 
ponding choice of prices. 
MEGA RAM^" gives more memory per dollar 

A single Mega Ram board can hold up to one 
full megabyte of parity-checking memory. And 
you can buy 2 or 3 ACECO Mega Rams for about 
the same money you'd pay for only one Tl 
board, so you can save literally thousands of 
dollars by using ACECO. Buy a Mega Ram fully- 
populated with a megabyte of 64k chips, or buy 
a partly-populated board and upgrade as you 
need more. We supply Mega Rams assembled 
and tested with 256k, 512k, 768k, or a full 
megabyte, so you can choose precisely what 
you need. 



Because each Mega Ram has its own built-in 
controller and holds up to 1 megabyte, a single 
Mega Ram can replace up to 5 standard Tl 
boards (controller + four 256k boards). This 
economy frees-up buss slots, eliminates con- 
trol cables, and reduces power requirements 
about 40% for memory. 
MEGA RAM DRIVE'" gives faster processing 

ACECO Mega Ram Drive software modifies 
your DXIO operating system to use Mega Ram 
memory like a disk drive. With Mega Ram drive, 
you can allocate from 1 to 8 Mega Ram boards 
as a pseudo-disk. Because any file stored in 
this memory is accessed much more quickly 
than from a mechanical disk, you can speed up 
compiles, edits, sorts, and other file processing. 
Add our Jet-Stream Controller and a streammg 
tape drive to your system, and get essentially 
continuous back-up for every file stored or 
manipulated in your Mega Ram Drive. With this 
back-up, if you suffer a power failure you can 
reload the Mega Ram Drive from the tape and 
recapture pre-crash data to within about 10 
seconds prior to the failure. 
PROM-PAK 5™ gives you 512k 
of read-only memory 

If you need non-volatile memory for special 
applications, our Prom-Pak 5 gives you a 
massive amount. Use it to store complete 
operating systems, special routines, or even 
complete dedicated applications without 
having to wait for disk access. When you store 
critical programming on a Prom-Pak 5, you 
protect your data from power failures and disk 
crashes, and still enjoy quick access. 
PRO/90"" speeds I/O processing 

At ACECO, we know more memory isn't the 
answer to every processing problem. Some- 
times the nature of your work may actually bog 
down your processor. The solution is to install 
our PRO/90 co-processor. The PRO/90 gives 
you 4 asynchronous and 1 synchronous 
RS232C DMA channels to extend yourtotal I/O 
processing ability. It can also manage 
Mega Ram Drive memory and our Jet-Stream 
tape controller, taking even more load off your 
present host processor. Used as a Direct 
Memory Access controller the PRO/90 in- 
creases system processing speed consider- 
ably, especially if you're using many terminal 
devices, high-speed communication lines, or 
high-speed printers. 
ACE-PORT T" adds multi-terminal power 

If you want more terminals, our Ace-Port 7 
board provides seven serial channels 
especially for terminal devices. It lets 
you use inexpensive dumb video ter- 
minals to perform the fancy screen- 
oriented data handling found other- 
wise only on the much more expen- 
sive Tl 911 and 940 terminals, at 
really significant savings. The Ace- 
Port 7 fully supports your use of 
BASIC and TIPE-990. With optional 



software, dumb terminals tied to an Ace-Port 7 
can share a port with a printer, so each of your 
remote installations can have its own terminal 
and printer. If you're planning to add more ter- 
minals to your system, ask about our complete 
multi-terminal hardware/software packages. 

JET STREAM CONTROLLER'" gives 
non-volatile back-up 

Streaming tape drives give you lots of low- 
cost data storage. Our Jet-Stream Controller 
provides the interface you need to use multiple 
streaming tape drives with your TI/10 or /12. 
The Jet-Stream supports standard Tl copy 
utilities, and can be used as a norma! stand- 
alone device controller. When you have our 
Mega Ram Drive, the Jet-Stream can also per- 
form automatic continuous back-up to tape of 
all data run through the Drive. 

ENTRY-SENTRY'" data terminal survives 
rugged environments 

If you need a rugged, all-weather data 
terminal, use the ACECO Entry-Sentry. Protect- 
ed by a rugged steel case, the Entry-Sentry has 
a keypad integrated directly intotheterminal's 
face as a fully-sealed switch array with no 
moving parts. The 16-character fluorescent 
alphanumeric display communicates prompts 
or other messages to terminal users. Entry- 
Sentry is a smart terminal capable of on-line or 
dial-up communication with your Tl 990/10 or 
/12. In addition to receiving and displaying 
data, the Entry-Sentry can also control elec- 
trical or electro-mechanical devices, such as 
pumps, gates, doors, or valves. 

Get more for your money at ACECO 

Whether you want more memory, or need 
other special solutions to improve the power 
of your TI990, when you choose ACECO pro- 
ducts you're selecting real value. Because we 
engineer our equipment to be integrated into 
your system one step at a time, you'll find more 
flexibility in our range of solutions. Because we 
offer more flexibility, you have more control 
over your upgrade investments. 

Flexibility and value aren't new concepts for 
us.. .we've been engineering and producing 
electronic components and systems since 
1961. To get complete specifications and 
prices for any of the products discussed here, 
just call us. Dial (512) 661-4111 then ask for 
Ron Carter or Rick Brewer. We'll be glad to 
send you complete specifications right away. 



ACECO 

Automatic Control 
Electronics 

5355 Dietrich Road, P.O. Box 20264 
San Antonio, TX 78220 
512) 661-4111 
TWX 910-871-1229 ACECO SNT 
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HardiiiarE 



WANTED; Tl 980 tape contfolter or complete 
980 system. Sander Geophysics Ltd., 303 
Legget Drive, Kanata, Ontario K2K 2B1, 
Canada, Attention: Michael Giroux (613) 
592-1301. 



EaftiuarE 



Expand your System 300 computer! 

Now a Business System 300 can be as versatile as a 
Business System 600 or 800. Our interface cards give 
your 300 system expanded device support. 

R&S Laboratories, Inc. 

P.O. Box 669, Vista, CA 92083 
(619) 941-0979 



BVTECH 



NEW/ USED Tl H/W 

COMPATIBLE H/W 

H/W UPGRADES 

ACCESSORIES 

CABLES 

SYS CONVERSION 



CONSULTING 
CUSTOM SOFTWARE 
WORD PROCESSOR 
SPREADSHEET 
JOB COST ACCT 
VENDING CONTROL 



BOX 10998-504 AUSTIN 
(512) 258 - 1062 



TX 78766 



MULTIPLEXERS 

Our 7 channel half-slot or 15 channel full-slot multiplexers save both 
chassis space and money. We offer 911 emulation software for most 
common terminals. With over 30,000 installed channels world-wide, 
a dedicated depot repair facility, and phone-in customer assistance. 
Axis Technology offers the end-user and OEM alike the experience 
and support which has made us the largest supplier of Tl-compatible 
RS232 multiplexers in the world. 
And Now . . . 

Axis Technology is pleased to announce MASTERMUX^", a fully 
buffered 6 channel intelligent RS232 multiplexer featuring on-board, 
high speed 911 emulation. MASTERMUX^'^, requires only a single 
CRU I/O slot. With the aid of an on-board 4 MHz Z80 processor 
and 65000 characters of buffer memory our new product offers 
TILINE™ device performance at a fraction of the cost. 

Axis Technology 

3959 Ruffin Road 
San Diego, Co. 92123 
(619) 560-4281 




INCREASE YOUR PROFITS BY USING the 

Multi-Systems Pulmonary Function, ECG 
(electrocardiograph) analysis, lab patient 
reporting or inventory control on your Tl 
computer. Call Multi-Systems at (313) 
239-4188. 



DSRs AVAILABLE FOR DNOS. ADDs, 
TeleVideo DSRs available for DNOS 1.0 and 
DNOS 1.1. The only available ADDs and 
TeleVideo DSRs with MUX capability as a 
standard feature. Mytek, Inc., 1175 Spring 
Centre South Blvd., Longwood, Fl 32750. 
(305) 862-9524. 



DNOS 1.10 and DX10 3.5 Multi-terminal DSR 
with printer using Multi-Systems half-slot in- 
terface with two through ten RS232 ports. 
The only available multi-manufacturer DSR 
with standard SCI printer through the ter- 
minal aux port. Operate any combination of 
the following terminals on your Tl system 
at the same time using a single DSR: TI-940, 
TeleVideo 950, DEC FT-100, Beehive DM30, 
ADDs, plus more. Contact Multi-Systems, 
3014 Robert T Longway Road, Flint, Ml 
48506, or call (313) 239-4188. 



UP YOUR PROFITS BY USING the Multi- 
Systems marketing program for contracts, 
tracking, status, inquiries and mass mail- 
ings on your Tl computer. Using Multi- 
Systems Word-Processor the user base can 
have selective mailing or mailing with selec- 
tive offerings based on customer data on 
one single pass. Power is the word and 
minimum user knowledge is needed. Call 
Multi-Systems at (313) 239-4188. 



m 



HADRDN 

ncorcDrated 



Full Function 
Accounting Sjrstem 

The DATAVUE Business System includes: 

General Ledger 

Accounts Payable 

Accounts Receivable 

Payroll 

Cost Accounting/Billing 

Data Manager 

Integrated database design features 

automatic transfer ol'intersubsystern data 

Written in Pascal, operates with either 

DXIO or DX5 on ALL DS990 processors. 



Contact 
G. Keencn 
1945 Gallows Rd. 
Vicima,VA 22180 
(703) 556-8910 



M. Welch 

81 i Aquidneck Ave. 

MiddletDwn, RI 02840 

(401)846-8602 
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COBOL METHODOLOGY PACKAGE FOR 
Tl COMPUTERS: Business Math. Roots, 
log, exp, moments, and more. 16+ signifi- 
cant digits. Call Al or Tom at (312) 236-9670. 



QUERY INFORMATION SYSTEM Allows 
users to generate reports using your ex- 
isting DX10 KIF files and directories of 
COBOL FDs. Free broctiure. DARIS (512) 
344-4712. 



Some software suppliers 
are more equal than others. 

Tlie Memtrac Group makes the difference. 

Now you can license the software that drives Memtrac mini-computer 
systems nationwide. The Memtrac Group developed the software, and 
they support it - every day. It's a tested, proven product. 

The Memtrac Software package includes source code, utilities, system 
documentation, user documentation, training and support. Memtrac 
software operates on the TI 990/10 and /12 series. 

MEMBERSHIP MANAGEMENT FUND ACCOUNTING 

Membership General Ledger 

jjaba uOiii|j: gciiciauco pdiouiiauZcu ii^ouu.iiub lOyciuiu 

letters and labels Payroll/ Labor Distribution 

Data V^riter: generates reports Fixed Assets 

For more information on Memtrac Software call (214) 258-8600 



^ 8600 Freeport Parkway, Suite 3000 

i_ u u^i -v]^ irving, Texas 75063 
'^^-'^yP 214/258. 




m 



Lasso 
Great 
Values 

withMCBA's . 
new packages: 4^ 

YIPPEE! Prices you can really afford! 
Along with new, enhanced versions of 
MCBA's award-winning accounting 
software, these new COBOL packages 
are now available for the popular Tl 990 
and Business Systenns 300 and larger. 

• Inventory Management (l/M) 

• Bill of Material Processor (BOMP) 

• Customer Order Processing (COP) 

Call us NOW! 

rn 
11 

Mini-Computer Business 
Applications, Inc. 

2441 Honolulu Avenue 
Mo-trose.CA 91020 
Telephone: (213; 957-2900 Telex: 194" 




The power of the most popular 

'electronic worksheet' 

is now available on all TI computers* 




Now your TI computer can handle those 
tedious calculations for investments, budgets, 
cash-flow analyses, profitability reports, price 
lists - all your numerical problems. You can 
now ask 'What if this happens?' and see the 
recalculated results in seconds. 

How? With the TIMBERLINE SPREADSHEET. 
It's the fastest-selling system in our 11 -year 
history. That's because it has features the 
other 'electronic worksheet" users can only 
dream about: alpha or numeric sorting of rows; 
multi-page printouts; variable column widths 
within each worksheet; security passwords; 48 
math functions; unlimited report designs; it's 
also easy to learn and use. 



You can obtain SPREADSHEET through a 
variety of Timberline outlets. Call or write us 
today for a free brochure and for the name of 
a representative near you. (For the Business 
System 200 version, contact the TI Application 
Distribution Center). 




SYSTEMS, INC/ 



National Sales Manager 

PO Box 230120 

Portland. OR 97223 

(503) 684-3660 
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ICANSPL. For people who cannot, this is 
a fast and satisfying way to check the spell- 
ing in your text files. Needs DX10 and key 
indexed files. Sold on FD800 TX format disk. 
$250. Starter pack of 2,000 words is $50. To 
order C.O.D., MasterCard or VISA call Munro 
Electronics at (617) 226-0497. 



MEDICAL ACCOUNTING CONTROL 
SYSTEM. An interactive COBOL Medical 
Control System designed for Tl Models 4 
and above. The most flexible medical 
system available. Patient/family billing, in- 
surance and bill processing, and other 
accounting functions. MACS goes beyond 
debits and credits and provides the medical 
office with meaningful statistics about pro- 
cedures, diagnoses, staff doctor, referring 
doctor, etc. Call or write SBAA Marketing, 
Inc., RO. Box 971, Cape Girardeau, MO 
63701 or phone (314) 335-4257. 



HASP 990 vs. 3780/2780 

DO YOU UTILIZE TI 3780/2780 TO COMMUNICATE WITH IBM? 
ARE YOU THE MASTER OF YOUR WORKSTATION? 



Can you send jobs and receive reports simultaneously? 



HASP 990 TI 3780/2780 
YES NO 



Can you start, stop, and reposition reports directly? 



YES 



NO 



Can you monitor jobs at the host computer? 



YES SOMETIMES 



Can you receive more than one print and/ or punch 
hie at the same time? 



YES 



NO 



Can you text-edit a file while maintaining communica- 
tions at a single station at the same time? 



YES 



NO 



^r 1^^^ "'"r^'cir^T""^7rT,l'rirJ!T'''^' Contact: David Ercole 
200 Professional Drive • Gaithersburg, Maryland 20879 • (301 ) 258-9850 



American Computer 

and Electronics Corporation 



DATAMATE 

Report Generator 

English Language 

Multiple Files 
Select and Calculate 

Print or Display 

Totals and Subtotals 

Sets Up In Minutes 

Works With Your Existing Files 

Over 150 Installations 

$3500 

FINANSWER+ 

Electronic Spreadsheet System 
English Language 

Menu Based 
Password Security 

Consolidation 
Fast COBOL System 
Sorting and Graphing 

Help Screen 

Up to 28,800 Figures 

$995 

Available Now for All TI Computers 

DATAMATE Company, Inc. 

4135 South 100th East Ave 

Suite 101 

Tulsa OK 74145 

(918) 664-7276 

Coming Soon To A Computer Near You! 



ANOTHER BULLSETE 

FOR Gsn... 



From a single slot in your Texas Instruments 990, 
CSI's new 911E emulating mux will support up to 
four intelligent CRT's. The 91 IE hits the mark in 
other ways too: 

• Full embedded emulation of 911 
VDT subsystem. 

• Operates with standard DX10, DNOS (no 
special DSR required). 

• Full-duplex communications supported. 

• Switch selectable Baud rates up to 38.4 KBS. 

You'll find the 911E's price is on target too. 

A complete subsystem (91 IE mux and approved 
CRT) is available from Custom Systems 
distributors. Let us put you in touch with one 
near you. 

CSI. . . a choice you can afford. 



CUSTOM SYSTEMS INC 

6850 Shady Oak Rd. 

Eden Prairie, Minnesota 55344, U.S.A. 

Telephone: (612) 941-9480 Telex: 290975 CSI MPLS ENPE 
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MICRO-BASE COMM. Communicate to 
timesharing of host processors via asyn- 
chronous "TTY" protocol under Tl DX10. 
Package includes: object code and installa- 
tion, sysgen procedure. (1) Asynchronous 
Device Service Routine (DSR). The asyn- 
chronous DSR has been used to interface 
various devices such as paper tape reader/ 
punch to the 990/10 via TTY/EIA board. 
$1,000. (2) TTY Emulator. Works with asynch- 
ronous DSR and provides a soft (table-drive) 
communication capability. $1,500. Includes 
DSR. Auto-Dial and log-on procedures for 
GE timesharing availabla For more informa- 
tion, call Mr. Emil Hirselj, Micro-Base Corp. 
(513) 439-4560. 



SEND IN YOUR COMPANY NAME AND 
ADDRESS on letterhead for a new free 
monthly newsletter about Texas Instruments 
related hardware and software reviews, 
notices, and other features from Tl LINER, 
RO. Box 10801, Fort Worth, TX 76114. 






CAMS 



^^ Case Accountability and 
Management System 

The computer answer to simplified 

control and retrieval for tfie 

Clerk of Courts 

• Coordination of all functions of Issue Desk, 
Cost Desk, Cashier and Control Desk 

• Billing for Common Pleas and Appellate Court 

• General Ledger style distribution of all monies 

• Index "SEARCH" of all cases by party name (or 
part of name) 

• Handling of standard costs, fees and deposits 

• Full case activity information (initial filing 
through final disposition) 

• Printing of Receipts, Appearance Docket Pages, 
Case Cost Statements, Party Summons & Motion 
For Additional Deposit 

• Listings of all Master Files. Audit Journals, Case 

Balance Reports, Case Distributions and Full 
Case Activity Reports 

PDS SYSTEMS 

1207 Springfield Pike 

Cincinnati, OH 45215 

(513) 761-3880 



nypuvns.o 



For Tl computers 

AN IMPORTANT NEW RELEASE 



NEW 3.0 FEATURES 

• Full screen "Matrix Window" with split 
screen for scrolling through the matrix. 

• Visible Calculator 

• Editor with"Logic Window" 

• HELP command displays manual on screen 

• GOAL SEEK finds needed values for desired 
outcome. 

FINANCIAL 3?''*""'" 
MODELING »rkZI. 



GENERAL CAPABILITIES 

• Database Interface — to R Systems, 
Timberline ft others 

• Consolidational Capabilities 

• Financial Pacltage 

• Statistics Package 

• Graphics Package 

• Plus: Command Files, Report Writer, 

If /Then/ Else & GO TO logic. Prompting and 
much more. 



I SOUTHERN DATA 



P. O. Box 652, Cardiff, CA 92007 

Phone: (619) 436-1954 Telex: 695073 MESA SERV SDG 



CITY/COUNTY GOVERNMENT 
SOFTWARE 



Budgetary Accountirig 

Purchasing 

Payroll 

Utilities 

Income Tax Administratior 

Asset Management 

General Ledger 



Contact: Jay Rettig 

Software Solutions, Inc. 

201 North East Street 

Lebanon, Ohio 45036 

(513) 932-6667 



RealWbrid'*' 

BUSINESS SOFFWARE 



PC $595 

BS200 & Model 1 $695 

BS300&BS600 $795 

• Order entry • Inventory 

• Receivables • Payables 

• General Ledger • Payroll 

Dealer inquires invited 

Trademark of MBSI 

ComputerPro 

8859 SW 69 Ct. Miami, FL 33156 

(305) 667-3556 



R WORD™ 

Interactive Software 

• Word Processing 

• Data Base IVIanagement 

• Report Generator 

• Full Math Capability 

• Spelling Dictionary 

• Document Assembly 

• Repetitive Letters 

• Office/Time Management 

• Remote Capability 

R SYSTEMS, INC 

™ R WORD is a registered trademark of R Systems, Inc. 



R Systems, Inc. has been in business for six years, manufacturing 
one of the most comprehensive software packages available with 
over 2500 installations. 

The programs are written in assembly language and are com- 
pletely interactive. One of the outstanding features of this software 
is it's operation and execution speed, while requiring under 30K 
per user. 

R Word is available on Model 1 , Model 4 and up, and all Business 
System computers while running under DX10, DNOS, DX10 
Micro, and Ryan McFarland's COS990, and supports letter qual- 
ity, matrix, the letter quality 810, and laser printers. 

R Word is a truly complete office automation software package 
that is a comprehensive yet cost-effective tool for managing infor- 
mation in any business office. Call or write for a free brochure 
or distributor pricing. 

(214)343-9188 

11450 Pagemill Road, Dallas, Texas 75243 



21 



April 1983 TI-MIX News 



HaffkUflfE 



CUSTOMIZED SOFTWARE DEVELOP- 
MENT. 11 990 COBOL, BAStC, FOFURAN tV. 
Analysis, design, programming, support, 
and management consulting. Contact Barry 
Cherkas, Rh.Q, "the consultant's consultant" 
at (212) 291-7385. References. Cherkas Soft- 
ware Consultants, Inc., 175-38 Henley Road, 
Jamaica Estates, New York 11432. 



BUSINESS SOFTWARE that's easy to use 
and affordable for the 11 computer. User 
manual and support included. Dealer dis- 
counts on first sale. Call Synergistic 
Systems, Cobble Hill Road, East Thetford, 
Vermont 05043. Call (802) 785-4121. 

"0" COMPILER for DX10, DNOS, PDOS, etc. 
$450. Great Lakes Information Systems Ltd., 
RO. Box 2037, Ann Arbor, Ml 48103 or phone 
(313) 663-6402. 



FORTH FOR TM990. EPROM based 
figPORTH with editor, assembler, disk inter- 
face, interrupt handling and power-up vec- 
toring to application program. Engineering 
Logic, 1252-13th Avenue, Sacramento, CA 
95822, or phone (916) 442-4380. 

COMPRESSION/ENCRYPTION. Files com- 
pressed 40-70% with password protection. 
Can be customized for any file on Tl com- 
puters. Call (804) 293-2003. 



TAPUTL 



\ FINALLY! RELIABLE TAPE 
i BACKUP ON A TI SYSTEM! 



Magnetic Tape Backup/Restore Utility 
For DXIO System With A 979A, 
MT 1600 Or Winchester Tape Cartridge 
Drive. 

• Bypass Tape Frrors On Backup and Restore. 

• Map Contents of Tape. 

• Add New Backups To tMsting Tapes, 

• Multiple Directories- Includes Allowed. 

• Restore From .Any Tape On Mulli-Tape Backups. 



Complete Package Includes} 
Manual, Tape and l-Yearj 
Free Updates for $500. 



PDS Systems 

1207 SPRINGFIELD PIKE 
CiNCINNATI, OHIO 45215 



CP/M® UNDER DXIO 
SOS-TT" CP/M® HARDCARD SYSTEM 

1/2 Slot CRU ■ Z-80A ■ 64KRAM ■ 4 Mhz ■ 2 Serial Ports 
FIFO Interface ■ File Conversion Utility 

• Use with any Tl™ 91 1 or 940 temninals 

• Model 300, 600, 800 and DS990 

• Tl Professional® disc option 

LIMITED TIME OFFER: 
MULTIPLAN®, SUPERCALC® or MBASIC® FREE with order 

CALL SOS THE ORIGINATOR'S OF CP/M® FOR Tr COMPUTERS 

SAUEM ONLINE SYSTEMS 

1 550 OLD WEST HENDERSON • COLUMBUS, OH 43220 

(614)451-1505 

SUPPLIER OF ALL CP/M® SOFTWARE ON TEXAS INSTRUMENTS® MEDIA 



Forget Fortran^ Cobol^ Pascal... 

Adept II requires no knowledge of programming languages. 

With ^^^ design philosophy of Adept II gives high priority to simplicity 
A riorvf 1 1 °^ "^^ without sacrificing sophisticated functions. 



VOU '^^^P^ " '^ ^ combination screen generator, report writer, updater 
r{r\r%^i ^"^ calculation module, with built-in security menu access and 
ClOn I online documentation. 

need 

-I Adept 1 1 can interface directly to your existing DX10 data files, 

tnem . providing the exact information needed, in the format you want. 

Find out how easy it can be. 

For dealer inquiries, or purchase information, contact: 

GATEWAYS 

Systems Corporation ill 



(517) 349-7740 

2277 Science Parkway, Okemos, Michigan 48864 



ADEPT © 1982 PDS, Inc. 



22 



April 1983 TI-MIX News 



THE SALES MANAGEMENT SYSTEM 



For Tl computers 



Inquiries 

From 

Advertising 




Save yourself hundreds of hours in designing, programming and applying the computer as a tool in sales management. WeVe already done it tor you!! 
just obtain our video-cassettes that tell \'ou and show you what you ha\'e to consider in order to Increase Sales Productivity, Build a Prospect Base, 
and Manage Your Sales Force. 



Please send me your video-cassettes on the sales management system: Enclosed is a cheque for: 

ri VH'^' □ 1 SYSTEM CONCEPT AND BENEFITS S199.95 

n BETAMAX □ 2. SYSTEIVI OVERVIEW. SCREEN LAYOUTS AND REPORTS S299.95 

(#1 must be purchased first) 



NAME 



TlTl E __ 



COMPANY 
ADDRESS - 
cn Y 



PROV. STATE 



COl N1R> 



POSTAL ZIP CODE 



TELEPHONE NO. ( 



Copyright© 1983 by Image Systems Inc. 

WARNING TO PURCHASERS: The unauthorized recording of copyrighted 
material for commercial purposes is copyright infringement. 



MAIL TO: 

IMAGE SYSTEMS INC. 

Ste. 235 - 2025 W 42nd Ave. 
Vancouver, B.C. V6M 2B5 

Canada 

Telephone (604) 266-1463 

"We provide a window 
to your prospects" 
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BUSINESS GRAPHICS UTILITY 

Use your Tl or Printronix line printer to create Business Graphics output 
quickly, easily, and economically. 



BENEFITS: 

• Pictures Sell 

• Faster than most pen plotters 

• Requires no plotting or technical background to use 

• Clerical personnel can produce professional results 

• Inexpensive 

- No extra equipment 

- No hard-to-get supplies 

• Charts can be kept up-to-date 

• Turn tedious tables into powerful pictures 

• Operates with 810LQ, LP300, LP600, or Printronix Printers 



FEATURES: 

• Histograms (Bar Charts) - Up to 31 periods, 1 to 4 values 

• Line Graphs - Up to 31 periods, 1 to 4 values 

• Pie Charts - Up to 36 Values 

• All labels are user defined 

• Plus a General Purpose Form Drawing Utility 

• 872" X 11" for Reports or Overhead Projection 

• 11" x 14" Reports for wall or desktop 

• Vertical and Horizontal Formats 

• Print all sizes without changing the data 

• standard Input Format for all Graphs 

• Input is a simple 80 byte ASCII input file from any language, even the 
Text Editor 

• includes ail necessary SCi procedures 



IGlNflL SOURCE OF SRLES LEflOS 





information systems Inc. 

467 PATTERSON ROAD 

DAYTON. OH 45419 

NATIONWIDE 1-800-545-4801 

IN OHIO 1-513-294-6777 



ftLTTHORfZCD 
D€AL€R 

Texas Instruments 
COmPUTCR SVSTEmS 
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